#!/usr/bin/perl -w
use strict;
my $n = 0;
my @fh;

$|=1;

while($n < 5000) {
        my $fh;
        print "open $n\n";
        open $fh, ">", "/tmp/$n.tmp" or die "open XXX $!";
        push(@fh, $fh);
        print "dup $n\n";
        open YYY, ">&=", $fh or die "open YYY $!";
        close YYY;
        $n++;
}