#!/usr/bin/perl use List::Util qw(shuffle); my @ids = shuffle (200000..348188); while (my $id = pop(@ids)) { print "$id\n"; }