Select Code to Download

#!/usr/local/bin/perl -w

...
        print Dumper ([\$right]);
        print Dumper ([\$wrong]);
}

Odd number of elements in hash assignment at t line 17.
Right=3
...
              3 => undef
            }
        ];