my $filename_mh_sc_8_qnt = 'mh_science_8_qnt.txt';
open my $mh_sc_8_qnt, '<', $filename_mh_sc_8_qnt or die "Cannot open '$filename_mh_sc_8_qnt' for reading: $!";
      
my @Science = <$mh_sc_8_qnt>;
my @shuffle = shuffle @Science; #shuffle the questions
my $counter = 1; #number the question.
foreach my $qnt (@shuffle){
		print $counter, ".  " . $qnt ."\n\n";
		$counter++;
	};
print "\n";