@list = map { s/^\d+//; $_ } @list; # alle fuehrenden Ziffern loeschen
$i = 1;
@list = map { $i++ . $_ } @list; # Nummerierung neu generieren