100!100!key!date!2..
        100!100!key!store!
        110!110!P\d\d\d_.*\.\d{6,}\.EMRemr
        120!125!
        1!yeada
        130!132!
        140!133!
        150!134!
        500!blah
        160!135!arbor_ama
        503!blah
        170!136!
        505!blah
        180!137!
        190!138!

##</code><code>##

my @array  = (all that stuff above);
   @array  = map { $_[0] = (split(/\!/,$_))[0]; }
             sort { $a <=> $b; } @array;

##</code><code>##

        1
        100
        100
        110
        120
        130
        140
        150
        160
        170
        180
        190
        500
        503
        505

##</code><code>##

        1
        100!100!key!date!2..
        100!100!key!store!
        110!110!P\d\d\d_.*\.\d{6,}\.EMRemr
        120!125!
        130!132!
        140!133!
        150!134!
        160!135!arbor_ama
        170!136!
        180!137!
        190!138!
        500!blah
        503!blah
        505!blah