Das Problem ist, dass do { local $/; <$in> } einen String zurückliefert, der die gesamte Datei enthält. In @lines würde also nur ein Wert stehen, und nicht die einzelnen Zeilen. Um die einzelnen Zeilen zu bekommen könnte es chomp( my @lines = <$in> ); heißen.

MfG