C:\>perl -E "use Win32::Sound; say Win32::Sound::SND_ASYNC & Win32::Sound::SND_NODEFAULT;"
1

C:\>perl -E "use Win32::Sound; $x = (Win32::Sound::SND_ASYNC & Win32::Sound::SND_NODEFAULT); say $x"
1

C:\>perl -E "use Win32::Sound; say (1 & 2);"
0

C:\>perl -E "use Win32::Sound; say ('1' & '2');"
0

C:\>perl -E "use Win32::Sound; my $as = Win32::Sound::SND_ASYNC; my $nd = Win32::Sound::SND_NODEFAULT; say $as & $nd;"
0

C:\>perl -E "use Win32::Sound; my @as = Win32::Sound::SND_ASYNC; my @nd = Win32::Sound::SND_NODEFAULT; say @as; say @nd; say (@as & @nd);"
1
2
1