my %cmd = (
            Mon => [ qw( Jim ) ],
            Tue => [ qw( Jim Paul ) ],
            Wed => [ qw( Jim Paul Annie ) ],
          );

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