./test.pl r,2,g,2,w,1,q,1
$VAR1 = {};