Select Code to Download

#!/usr/bin/env perl
use strict; use warnings;
...
   my %row_hash = map { $headrow->[$_] => $row->[$_] } (0..$#{$headrow
+});
   push @dataset,\%row_hash;
}