my $test = "xyz";

my $new = subroutine($test);

sub subroutine
{
      local $temp = $_[0];
}