my @normalized =
  map { $l2 + ($_ - $l1) * ($h2 - $l2) / ($h1 - $l1) }
  @data;