&test( \%jjj ) ;
sub test {
my $jjj_ref = $_[0] ;
print("#### "."$jjj_ref->{'aaa'}") ;
}
ハッシュの前に引数の受け取り方を調べよう :-)