push @{ $plates{ $lets} }, $nums;

##</code><code>##

print "$_ ", join( ', ', @{ $plates{ $_}), "\n" for sort keys %plates;