Select Code to Download

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