Select Code to Download

my @header=qw/studentrecord primary_ins primary_ins_type/;
my @wanted_fields = @header;
...
    my @wanted_data = map {$row{$_}} @wanted_fields;
    print join(",", @wanted_data), "\n";
}

open (FH, "< sample_1_header.csv") or die "Can't open file for read: $
+!";
my @header=<FH>;
...
}
$i++;
}