#!\usr\perl\bin -w
use strict;
use warnings;

open FILE, "<", "SandSim.txt";

my @sandGrid;

while(my $line = <FILE>){
	chomp($line);
	push(@sandGrid, split('', $line));
}
close FILE;

printSand(@sandGrid);

sub printSand{
	my @array2d = @_;
	for my $i (0..$#array2d){
			for my $j (0..$#array2d){
				print "$array2d[$i][$j]";
			}
		print "\n";
	}
}

##</code><code>##

.....
  #  
#    
     
     
    .