# perl -we '$i=0;$x="klops";@a=(qw|apfel klops klops börne joghurt klops nüß|);for ($i=$#a;$i>=0;$i--) {print "$i:",$a[$i],"\n";$a[$i]=~/$x/ && push @e, (splice @a, $i, 1)};print "@e\n@a\n"'
6:nüß
5:klops
4:joghurt
3:börne
2:klops
1:klops
0:apfel
klops klops klops
apfel börne joghurt nüß