Select Code to Download

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

chomp(my @unsorted = (<DATA>));
my @sorted = sort { 
...
   (split(',',$a))[0] cmp (split(',',$b))[0]
   } @unsorted;
say for @sorted;