Select Code to Download

#!/usr/bin/perl -w

...
}

print Dumper \%Groups;

K0blah
PZfoo
P7bar
PEbaz

$VAR1 = {
          'Group1' => [
...
                        'P7bar'
                      ]
        };