my $data, $i, @file;

while ( 1 ) {
        open $file[ $i ], '<', '/dev/zero' or die "Cannot read: $!\n";
        read $file[ $i ], $data, 4;
        $i++;
        print "$data\t$i iterations...\n" unless $i % 100;
}

##</code><code>##

my $data, $i;

while ( 1 ) {
        open my $file, '<', '/dev/zero' or die "Cannot read: $!\n";
        read $file, $data, 4;
        close $file;
        $i++;
        print "$data\t$i iterations...\n" unless $i % 100;
}


##</code><code>##

my $data, $i, @file;

while ( 1 ) {
        open $file[ $i ], '<', '/dev/zero' or die "Cannot read: $!\n";
        read $file[ $i ], $data, 4;
        close $file[ $i ];
        $i++;
        print "$data\t$i iterations...\n" unless $i % 100;
}