col1,col2
vm1,fd1
vm2,fd2
vm3,fd3
vm4,fd4

##</code><code>##

#!/usr/bin/perl -w
use strict;

my $file = "test.csv";
open (my $FH, '<', $file);
my @array = (<$FH>);
close $FH;

foreach (@array)
{
    my @row = split (/,/,$_);
    my $var = chomp ($row[1]);     ###   <<< this is the problem
    print $var;
}

##</code><code>##

11111

##</code><code>##

foreach (@array)
{
    my @row = split (/,/,$_);
    print $row[1];     ###  << Note that I am not printing "\n"
}  

##</code><code>##

vm_cluster
fd1
fd2
fd3
fd4

##</code><code>##

foreach (@array)
{
    my @row = split (/,/,$_);
    chomp ($row[1]); 
    my $var = $row[1]; 
    print $var;
}