Select Code to Download

my %baskets = ( ten => [0..9],
                bat => [0..8,'bat:-:laser-disruptor'],
...

# print @tenorless # batten

#!usr/bin/perl

...
print @hasbat; # bat

exit 0;