for (my $i = $BIG; $i > 0; $i--) {

becomes

    for (my $i = 0; $i <= $BIG; $i++) {