You can't get there from here

Squares

For example, suppose you have written a function to calculate squares

        sub square_a {
          my $x = shift;
          return $x * $x;
        }

The guy in the next cubicle wrote one too:

        # VALUES OF BEETA GIVE RISE TO DOM
        sub square_b {
          my $fOOooO = abs(shift())<<1;
          my $BarRRr = $fOOooO-++$fOOooO;
          $BarRRr += $fOOooO until ($fOOooO -= 2) <= 0;
          return $BarRRr;
        }

Is it correct?