my $temp = "a";

sub test {
   my $temp = $test;
}