for( 2,3,5,7 ) {
    my $x= my $y= $_;
    sub pow {
        return $y *= $x;
    }
}
print pow(), $/ for 1..3;
__END__
4
8
16