$ perl -MData::Dumper -e ' my %h = (tim => [ 4, 7], joan => [5, 8], fred => [8, 3]); 
> proc(%h); 
> sub proc { 
>     my %h_sub = @_; 
>     print Dumper \%h_sub;
> }'
$VAR1 = {
          'tim' => [
                     4,
                     7
                   ],
          'joan' => [
                      5,
                      8
                    ],
          'fred' => [
                      8,
                      3
                    ]
        };