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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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