Select Code to Download

open (A1, "<2 normaal.txt") or die "can't open";

...
    chomp $in;
    push (@array1, split(//, $in));
}

open my $A1, '<', '2 normaal.txt' or die "can't open '2 normaal.txt' b
+ecause: $!";

...
while ( my $in = <$A1> ) {
    push @MainArray, [ $in =~ /[[:alpha:]]/g ];
}