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