use strict;

my $ausgabe;

$ausgabe .= "$_," for 0..10;
print chop $ausgabe;