#! /usr/bin/perl
use strict;
use warnings;

my @array = (
	"1\n",
	"2\n",
	"3\n",
);


print "Kontrolle 1: >>@array<<\n";

chomp(@array); # mach die "\n" weg...

print "Kontrolle 2: >>@array<<\n";