Help for this page
push @{ $plates{ $lets} }, $nums;
print "$_ ", join( ', ', @{ $plates{ $_}), "\n" for sort keys %plates;