Select Code to Download

#/usr/bin/perl -w

use strict;
...
    print "bucket $n: ",
          join(' ', @{$bucket{$n}}), "\n";
}

bucket 0: a b c d e f g h i
bucket 1: j k l m n o p q r
bucket 2: s t u v w x y z