@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};
}