my @array;
$array[0] = 'A';
$array[1] = 'B';
$array[2] = 'C';
print "Liste:\n" . (join("\n",map{defined($_) ? "Wert => $_" : ''} @array)) . "\n";