in reply to Re^2: print out
in thread File names with interpolated variables

yes:

my $filename;
my $counter;
foreach $filename (@filelist) {
   open(IN, '<', $filename)
   or do { warn("Error opening $filename."); next; };

   $counter++;

   print OUT ("${counter}: $_") while (<IN>);
   close(IN);
}

[download]

Replies are listed 'Best First'.
Re^4: print out
by Anonymous Monk on Sep 23, 2004 at 20:56 UTC
    thanks came to a solution 
    while (<>) {
my $i++;
something

open (OUT, ">newnames.$i");

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom