my $sth = $dbh->prepare($query);
$sth->execute();

while ( my $row_ref = $sth->fetchrow_arrayref )
{
        my $vm = $row_ref->[0];
        my @nfs = split (/:/, $row_ref->[2]);
        my $filer = $nfs[0];
        print "$vm, $filer, \n";

}

##</code><code>##

ows301.dom.com, 10.157.118.42,
oem300.dom.com, 10.157.124.58,
omo300.dom.com, 10.157.124.58,
pwd302.dom.com, 10.157.126.58,
pwd302.dom.com, 10.157.126.58,
pwd302.dom.com, 10.157.126.58,
pwd302.dom.com, 10.157.126.58,
pwd302.dom.com, 10.157.126.58,

##</code><code>##

ows301.dom.com, 10.157.118.42,
oem300.dom.com, 10.157.124.58,
pwd302.dom.com, 10.157.126.58,