Select Code to Download

#!/usr/bin/perl

...
print "\npassing through qw:\n";
print Dumper \%newhash;
#print $@;

rasto@frodo:~/cheat$ ./test.pl 'r,2,g,2,w,1,q,1'
$VAR1 = {};
...
          'r' => '2',
          'g' => '2'
        };

$VAR1 = {
          'r,2,g,2,w,1' => undef
        };