foreach my $file (@filenames) {
	open FILE, "<$file";
	while($line = <FILE>) {
		print "$line\n";
		last;
	}
	close FILE;
}