Select Code to Download

use List::Util qw( shuffle );

...
or die("Unable to open input file: $!\n");

my @shuffed_array = shuffle <$fh>;