How about shuffle from List::Util?

use List::Util qw( shuffle );

open(my $fh, '<', '...')
or die("Unable to open input file: $!\n");

my @shuffed_array = shuffle <$fh>;
[download]

On the other hand, you probably want to spread entries from the same domain, not randomize the order of the array. I'm not sure how to do that.