sub diag {
  sqrt( $_[0]^^2 + $_[1]^^2 );
}

##</code><code>##

sub diag {
  sqrt( shift^^2 + shift^^2 ); # Not sure if this is more readable, or not.
}