foreach my $key (sort keys %h) {
    print "$key";
    foreach my $a (@{$h{$key}}) {
        print "$a ";
    }
    print "\n";
}