Select Code to Download

use strict;
use warnings;
...
sub powers {
    $_[$_] = $_[$_ - 1] * $_[0] for 1 .. @_ - 1;
}

2 4 8 16 32