Select Code to Download

my %cmd = (
            Mon => [ qw( Jim ) ],
...

print scalar @{ $cmd{ $_ } }, " can't make it on $_\n"
  foreach keys %cmd;