Yes, no clarity -

sub foo{ print @{$_[0]->{$_}},$/ for keys %{$_[0]} }
[download]

but I doubt this helps a lot.
Please, see Perl Data Structures Cookbook.