Fewer moving parts.

sub gcd {
  my ($n, $m) = @_;
  $m ? gcd($m, $n%$m) : $n;
}
[download]

But is worrying about this a false path?