Select Code to Download

#!/usr/bin/perl
use diagnostics;
my ($q,$w) = 1,2;

Useless use of a constant in void context at c:\windows\TEMP\DzTemp.pl
+ line 3 (#1)
...
comma is treated like C's comma operator, which
throws away the left argument, which is not what you want.  
See perlref for more on this.