for ( @filename ) { my $filename = $_; ... }