$ cat gen_targets.pl
#!/usr/bin/perl
use strict;
use warnings;
my $file = $ARGV[0] || 'targets.txt';
open (OUTPUT, '>', $file) or die "Unable to open $file for writing : $!";
print OUTPUT int rand 5_000_000, "\n" for 1 .. 5_000;