#!usr/local/bin/perl

opendir ($ARGV[0], "output");
chdir (output);
$a = 0;
open (TABELA, "tabela.csv");

while ($tabela = <TABELA>) {
	@lalala = split (/\t/, $tabela);
	print ("$lalala[0]\n");
	$col1_tabela[$a] = $lalala[0];
	$col2_tabela[$a] = $lalala[3];
	$col3_tabela[$a] = $lalala[4];
	$a++;
}

while ($filename = readdir (output)){
	if ($filename == ".") {
		$filename = readdir (output);
	}
	else {
		print ("$filename\n");
	}
}
