foreach my $alias (keys %hash3) {
    print "The members of $alias are\n";
    foreach (@{$hash3{$alias}}) {
        print "\t$_\n";
    }
}