foreach $letter (sort keys %hash) {
    print $letter;
    foreach $infoline (@{$hash{$letter}}) {
        print $infoline;
    }
}