@array = 
map { $_->[1] }
sort { $a->[0] cmp $b->[0] }
map { [lc substr($_,18),$_] }
@array;