my @in_fh;
my $count = 0;
while (my $line = <DATA>) {
	chomp $line;
	open my $IN, "<", $line or die "Cannot open file $line $!";
	$in_fh[$count] = $IN;
	$count++;
}

my $i = 0;
while ($i < $count) {
	while (my $line = <{$in_fh[$i]}> ) {
		print $line;
	}
	$i++;
}
__DATA__
one.txt
two.txt

##</code><code>##

	while (my $line = readline $in_fh[$i] ) {

##</code><code>##

while (my $line = <{$in_fh[$i]}>) {