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;
}