use strict;
use warnings;
use List::Util qw(max);

my %hoa = (
    a => [(1..3)],
    b => [(4..6)]
);

for (sort keys %hoa) {
    print "$_ ", max(@{$hoa{$_}}), "\n";
}

__END__
a 3
b 6