my $WAV1 = new Win32::Sound::WaveOut($sound_a) or die "WaveOut: $!";
# open sound for channel 1
...
...
$WAV1 -> Volume($level_a, $level_a);
$WAV1 -> Play() or die "Play: $!";
# play sound with the level set