Select Code to Download

A * B = 20
A * C = 40
...
B * C = 50
:
:

    for my $x (sort keys %hash) {
        for my $y (sort grep { $_ ne $x } keys %hash) {
            printf "%s * %s = %d\n", $x, $y, $hash{$x} * $hash{$y};
        }
    }