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

my @tenorless = grep { 

@{ $baskets{$_} } =< 10  

} keys %baskets;

# print @tenorless # batten