my %hash;

open (DATA, "<data.csv") or die "Can't open file $!\n";
my @DATA = <DATA>;
close (DATA);

foreach my $rec (@DATA) {
  chomp $rec;
  my @vars = split(/,/,$rec);
   if ($vars[0]) {
      map  $_ =~ s/\s+$//g, @vars;
      
      #hash3 used for comparing comp_name values
      $hash3{$vars[2]} = (@vars[0,1]); #add 1,2,3 as needed
  }
}

foreach my $alias (keys %hash3) {
    print "The members of $alias are\n";
    foreach (@{$hash3{$alias}}) {
        print "\t$_\n";
    }
}