Select Code to Download

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

#!/usr/bin/perl -w
use strict;
...
    my $var = chomp ($row[1]);     ###   <<< this is the problem
    print $var;
}

11111

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

vm_cluster
fd1
fd2
fd3
fd4

foreach (@array)
{
...
    my $var = $row[1]; 
    print $var;
}