$anz= @cves;
while (@ips) {
    say "IP address $_ gets CVE ", $cves[int(rand($anz))];
}