sub scale { my ($coords, $factor} map { $_ * $factor } @$coords }