while (<F>)
{
@fields = split(',', $_);
$hostname = $fields[3];
my $hostip = $fields[5];
print "$hostname\n";
	print "$hostip\n";
}