use strict;
use warnings;

my @AoA;

while (<DATA>) {
	chomp;
	push @AoA, [ split '' ];
}

for my $i ( 0 .. @AoA - 1 ) {
	for my $j ( 0 .. @{ $AoA[0] } - 1 ) {
		print "String $i; Char $j: '$AoA[$i]->[$j]'\n"
	}
	print "\n";
}

__DATA__
String 1.
Another 2
abcdefghi