Select Code to Download

use Data::Dump qw(pp);
my @array1=(1..5);
...


pp \(%set1,%set2,%union,%intersection,%difference);

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 },
)