my %t = (a => 1);
sub la {
  my $t = shift;
  my %t = %$t;
  print $t{'a'};
}
la \%t;