sub another{
  sqrt( $_[0] * $_[0] + $_[1] * $_[1] )
}