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