use Tie::File;
use List::Util qw(shuffle);

tie @questions, 'Tie::File',"questions.txt" or die $!;
my @qnums = shuffle(0..$#questions);
foreach (@qnums) {
	print $questions[$_];
	# get answer & write to file etc.
}