print for  map { pop @$_ }
              sort { $a->[0] <=> $b->[0] }
               map { [ (split /,/)[3], $_ ] } <>;