perl -E'my %x; $x{1,2,3} = 4; print $x{1,2,3}, "\n";'