Select Code to Download

01,TEST_1,,10.56.7.80
02,TEST_2,bla,10.57.80.9
03,TEST_3,,10.60.251.9

TEST_1,10.56.7.80
TEST_6,10.66.251.9
TEST_5,10.66.81.9

#!/usr/bin/perl
...
    }
  }
}

foreach my $name (sort keys %file2) {
  my $ip1 = $file2{$name};
...
       push @delete,[$id,$name,$description,$ip]
    }
  }