for (sort keys %f1hash) {
    print $f1hash{$_};
    print @{$f2hash{$_}};
}