local $\ = $/; # ausserhalb der Schleifen
[...]

print $konso1, $konso2; # $\ wird automatisch am Ende angehängt