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