my @neue_liste;

# holt element raus und entfernt es gleichzeitig aus der liste; bis liste leer ist
while ( my $item = shift @liste ) {

  # mache was mit $item; prüfen, oder sonstwas

  push @neue_liste, $item;
}