or download this
Use of uninitialized value $tmp[0] in hash slice at /home/lanx/B/PL/PM
+/set.pl line 17.
Use of uninitialized value $tmp[3] in hash slice at /home/lanx/B/PL/PM
+/set.pl line 17.
(
...
{ 3 => 3, 4 => 4, 5 => 5 },
{ 1 => 1, 2 => 2, 6 => 6, 7 => 7 },
)