Select Code to Download

#!/usr/bin/perl 
use strict;
...

$Data::Dumper::Indent = 1;
print Dumper($compare);

$VAR1 = {
  'Intersection' => [
...
    '8'
  ]
};