Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
    $xor ^= $val{$_};
    say $loop if !$xor;
}

9
36
45
72
81

my %val = do{my $cnt = 0; map {$_ => 2**(++$cnt)} split //, 'Aabcdefg'
+};