sub something {

  my %hash = @_
  print $hash{1} . "\n";

}
%test;
$test{1} = 1;
something(%test);