Select Code to Download

use strict;
use Data::Dumper;

...
my $powers = Recurse(5);

print Dumper($powers);

$VAR1 = {
          '1' => [
                   '1',
...
                   '3125'
                 ]
        };