use strict;
use warnings;

my $count = 0;
my @unsort_array = (<DATA>);
my @sort_array = sort @unsort_array;
foreach (@sort_array){++$count; print "$count. $_";}


RESA_BRU_BRU2CK0204             on  IA          W2K-FRAPIC-AP03_3083
RESA_BRU_BRU1LHBOCBD1           on  IA          W2K-FRAPIC-AP05_3083
SITA_PAD_PAD1CKB010             on  IA          W2K-FRAPIC-AP06_3083
RESA_BRU_BRU1GTA63M             on  IA          W2K-FRAPIC-AP06_3081
RESA_BRU_BRU1CK0203             on  IA          W2K-FRAPIC-AP06_3081
ARINC_BHX_BHXCK047              on  IA          W2K-FRAPIC-AP04_3083
SITA_FRA_FRAA2ALH03             on  IA          W2K-FRAPIC-AP02_3083
SITA_FRA_FRAB2BC340             on  IA          W2K-FRAPIC-AP02_3081
CAMPUS_FRA_PMS01                on  IA          W2K-FRAPIC-AP02_3081
ARINC_BHX_BHXCK050              on  IA          W2K-FRAPIC-AP04_3081
CAMPUS_FRA_PMS01                on  IA          W2K-FRAPIC-AP03_3081
SITA_FRA_FRAA2AC282             on  IA          W2K-FRAPIC-AP03_3081
RESA_BRU_BRU2CK0202             on  IA          W2K-FRAPIC-AP03_3081
RESA_BRU_BRU1CK0205             on  IA          W2K-FRAPIC-AP01_3083
RESA_BRU_BRU1CK0201             on  IA          W2K-FRAPIC-AP01_3083
CAMPUS_FRA_PMS01                on  IA          W2K-FRAPIC-AP01_3081
CAMPUS_MUC_WS646129             on  IA          W2K-FRAPIC-AP01_3081
SITA_FRA_FRAB2BC338             on  IA          W2K-FRAPIC-AP01_3081
SITA_FRA_FRAB2BC342             on  IA          W2K-FRAPIC-AP01_3081