my @list = ( qw( apple Alpha aLBAtross aLbAcOre etc... ) );
my @result = map {$_->[1] }              #     .sgnirts desacreppu eht lla tou pirts #
             sort {$a->[0] cmp $b->[0]}  #  neht dna ,sgnirts desacreppu eht no tros #
             map { [ uc($_), $_ ] }      # ,gnirts eht fo noisrev desacreppu eht dda #
             @list;                      #                             ,tsil a neviG #