gistfile1.txt

my $palindromNumbersSum = 0;
loop (my $i = 9; $i <= 1000000; $i++) {
        if ( ($i.flip == $i) && (sprintf('%b',$i).flip == sprintf('%b',$i)) ) {
                $palindromNumbersSum += $i;
        }
        if ($i%1000 == 0) {
                say $i;
        }
}
say $palindromNumbersSum;