Select Code to Download

sub enumerate {
    my (%p) = @_;
...
    }
    print join(", ", @out) . "\n";
}

[bmc@blah bmc]$ perl /tmp/test.pl  |sort
bar => A, biz => Y, foo => 1
...
bar => C, biz => Z, foo => 2
bar => C, biz => Z, foo => 3
[bmc@blah bmc]$