#!/usr/bin/perl-w

my @list = <*.csv>;
my $elem;
foreach $elem (@list)
{
	open (FILE, $elem) or die "Cannot find $elem!\n";
	my @array = <FILE>;
	close FILE;
}

##</code><code>##

organism	O2_REQUIREMENT	Domain	Classification
a.acidocaldarius	Aerobe	BACTERIA	FIRMICUTES
a.actinomycetemcomitans	Facultative	BACTERIA	PROTEO