my @array = (1, 2, 4);
my $anz = @array;
print $anz,"\n";