Select Code to Download

#! perl
use strict;
...
    print "$_ $key, " for @$array_ref;
}

14:29 >perl 737_SoPW.pl
A X, B X, C Y, D Y, E Y, F Z, G Z, H Z,
14:29 >