Try

#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use XML::Twig;
use autodie;
use Data::Dumper;

my @filename = ('output1.csv', 'output2.csv');

#TEST_1,10.56.7.80
#TEST_6,10.66.251.9
#TEST_5,10.66.81.9
my %file1 = () ;
open my $fh, '<', $filename[0]; # using autodie
while (<$fh>){
  chomp;
  my ($name,$ip) = split /\s*,\s*/;
  $file1{$name} = $ip;
}
close $fh;

#01,TEST_1,,10.56.7.80
#02,TEST_2,bla,10.57.80.9
#03,TEST_3,,10.60.251.9
my %file2 = () ;

open $fh, '<', $filename[1]; # using autodie
while (<$fh>){
  chomp;
  my ($id,$name,$description,$ip) = split /\s*,\s*/;
  $file2{$name} = [$id,$description,$ip];
}
close $fh;


# determine deletes requires
my @delete = ();

foreach my $name (sort keys %file2) {
  if ( not exists $file1{$name} ){
    # check if description exists
    my $id          = $file2{$name}[0];
    my $description = $file2{$name}[1] || ''; 
    my $ip          = $file2{$name}[2];
    if ( $description eq '' ){
      print "DELETE name : '$name'\n";
      push @delete,[$id,$name,$description,$ip]
    }
  }
}

print Dumper \@delete;
[download]