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

my @MainArray;

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