#print Dumper \@sorted;
open my $fh_out,'>','output.csv' or die "$!";
foreach my $row ( @sorted ) {
  print $fh_out join( ',', @$row ), "\n";
}
close $fh_out;