my($counter) = 0;
my(@AoA);
while (@ARGV){
	my($filename) = $ARGV[$counter];
	open (FILEHANDLE, $filename);
	my(@tmp) = <FILEHANDLE>;
	shift $tmp[0];
	push @AoA, [ @tmp ];
	close FILEHANDLE;
	$counter++;
	}

my ($aref) = '';
foreach $aref (@AoA){
	print "\t [ @$aref ],\n";
	}