print "Liste:\n" 
      . (join "\n", map { defined ($array[$_]) ? "Wert $_ => $array[$_]" : '' } 0 .. $#array) 
      . "\n";