foreach my $ip (@ips) 
{
    $record[7]=$ip;
    $csv->print ($ips, \@record); #Error probably here (ips -> ip)
}