WAV/j_Wah.wav: unable to open file (Too many open files)

##</code><code>##

use Audio::Wav;

my @wavs = glob ("WAV\/*.wav");
while (1) {
    for my $wav (@wavs) {
	print "$wav\n";
        my $readwav = new Audio::Wav;
        my $read = $readwav -> read( "$wav" );
	my $src_details = $read -> details();
	$readwav = undef;
	$read = undef;
						
    }
}