$datafile = $ARGV[0];
chomp $datafile;

open (INPUT, $datafile) || die ("Unable to open $datafile");
@data = <INPUT>;
close INPUT;
	
@dim = split(/\,/, $data[0]);
$width = $dim[0];
$height = $dim[1];

@table = @data[1..$height];

for($row = 0; $row < $height; $row++) {
	for($col = 0; $col < $width; $col++) {
		$myString = $myString.$table[$row][$col];
	}

	$myString ="";  
}

##</code><code>##

15,10
ADESFJRASLXDFRT
QBRAINOUEWHGYED
RIRURLKUNGEASDV
NAOBXCSTACHUIOL
OJKDGKJGHJUINHR
AHRHOAIDFSETRGH
RXANOGSYEROGATS
TOUDOGSDSAVFTRY
UORTUOFRHRJUIKO
BTIARTHYEUVFGQA
Dogs, Cats
Train