use strict;
use warnings;
use List::Util 'shuffle';


my $datei = "first.txt";
open (in,"<$datei") || die $!;

my @list;	# Liste mit Wörtern

#
# Datei einlesen
#
while (<in>){
# Datei Zeilenweise auslesen
	
	
}


}
close (IN_FILE);
#Listenelemente zufällig anordnen
@list=shuffle(@list);