Select Code to Download

 my (@firms);
while (defined( my $line = <FH1> ) ){
    chomp $line;            
...
    $hash{label} = $label;
    push @firms, \%hash;
}

@fields=qw(name64 label location1 subnet support_radius);
for(my $i=0; $i<=$#firms; $i++) {
  $firms[$i]->{subnet} /= 32;
  $upload .= sprintf "%s\n", join ',', @{$firms[$i]}{@fields};
}