power

gistfile1.pl

sub power {
    my ( $base, $exponent ) = @_;
    my $result = 1;
    for ( my $i = 0 ; $i < $exponent ; $i++ ) {
        $result = $result * $base;
    }
    return $result;
}