open (A1, "<2 normaal.txt") or die "can't open"; my @MainArray; while () { my $in = $_; chomp $in; push (@array1, split(//, $in)); }