sub foo{
  my $hashref = shift;
  foreach my $key(%$hashref){
    foreach my $val(@{$hashref->{$key}}){
      print $val,"\n";
    }
  }
}
[download]