my @in = <>;

##</code><code>##

while ( <> ){
...
}

##</code><code>##

open (READ, @in) || die "cannot open @in: $!.\n";

##</code><code>##

while ( <> ){
    for (my $i=0; $i<=$#file_names; $i++){
...
    }
}