for (sort keys %$hoa) {
    print join ' ', @{$hoa->{$_}}; print "\n";
}