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

##</code><code>##

$a_coords = [ [0,0], [0,10], [10,10], [10,0] ]; # a square