looking a one liner "to return the value while clearing the argument"

[Felix Li]

Hi,

Is there "a one liner" that performs the equivalent of

sub ReturnAndClear {
   my $temp=$_[0];
   $_[0]=undef;
   return $temp;
    };

TIA

felix li