my @list;
while(<$begriff>){
	chomp;
	push @list, $_;
}