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