my $dumped = Dumper(\%rev,\%name); print "Dumper:\n",$dumped,"\n";