Select Code to Download

$ cat 11105885.pl
use warnings;
...
}

print Data::Dumper->Dump([$buckets], [qw(buckets)]);

$ perl 11105885.pl
$buckets = [
...
               '12'
             ]
           ];