my @files = map{$_->[0]}
 sort{
      $a->[1] <=> $b->[1]
             ||
      $a->[2] <=> $b->[2]    
             ||
      $a->[3] <=> $b->[3]  
    }
 map{[$_,/.+?_A\.(.+?)-(.+?)-(\d+)\..+$/]}<DATA>;