#!/usr/bin/perl

$ip_file = 'ip_addrs';
$cve_file = 'cvd_ids';

srand;


open(IPADDRS, $ip_file);
open(CVEIDS, $cve_file);

my $cve =[];

while (<IPADDRS>) {
    push(@addrs, $_)
   
}

foreach $addr (@addrs) {
	for $cve (<CVEIDS>) {
		rand($.) < 1 && ($cve = $_);
		print "$addr, $cve\n";
	}
}