chomp(my @unsorted = (<DATA>));
map{ $_ =~ s/(\d+),(\w+)/$2,$1/ } @unsorted;
my @sorted = sort { $a cmp $b } @unsorted;
say for @sorted;