Select Code to Download

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

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