#!/usr/bin/perl
use strict;
use 5.010;
use warnings;

my @aa = qw /
21112340
21112341
21112342
21112343
21112344
21112345
21112346
21112347
21112348
21112349
21112350
21112351
/;

my (%za, @new);

# präfixe zählen, zehner  speichern
for ( @aa ) {

  /^\d{7}/;

  $za{$&}++;

  push @new, $& if ($za{$&} == 10)

}

# speichern alles was < 10 ist
for ( @aa ) { 

  /^\d{7}/;

  push @new, $_ if ( $za{$&} < 10 )
  
}

print "$_\n" for( @new ) # noch sortieren