Select Code to Download

while(<$infile>){
  push (@line, $_);
}

my $infile = upload ('file') or die "File was not uploaded correctly\n
+";

for $i (keys %data) {
  push (@ips, $i);
}

for $i (keys %data) {
    push (@ips, $i); 
...
     push (@names, $data{$i}{cname});
   }
}

for $i (keys %data) {
   for $j (keys %{$data{$i}{ports}}) {
     push (@ips, $i); 
   }
}