perl пробелы из массива символов

[Slimy]

Вопрос в общем такой как удалить из perl массива символов элементы содержащие пробелы?
пробовал

Код: Выделить всё

  sort @_;
    for(@_){
        s/^\s+|\s+$//g;
    }
    $_[0];

всеравно возращает пробел эта конструкция вместо символа.

[xorader]

perldoc -f splice:

splice ARRAY,OFFSET,LENGTH,LIST

Removes the elements designated by OFFSET and LENGTH from an array, and replaces
them with the elements of LIST, if any.....

Ищем -> удаляем

[Slimy]

Она же просто удаляет или заменяет по диапазону индексов. Это не то.
В общем оказалось что это sort() весьма странно себя ведет. Без него все хорошо. Он откудато добавляет пробелы в начало массива! Причем колличество пробелов соотвествует колличеству переданному массиву на обработку в мою функцию. Однако sort получает уже массив после удаления пробелов (пробелы удаляются это проверил) . Вопрос что не так с этим sort(). Если вывести массив через print @ в нем пробелов нет даже после sort! Как то шаманизмом отдает.

[pcodr]

А вы вкурсе что sort возвращает отсортированный список, а не изменяет переданный массив?
К тому же:

In scalar context, the behaviour of "sort()" is undefined.

[Slimy]

Проблему решил. Была в том что пробелы удалялись регеспом но! Оставались пустые элементы в массиве которые при print никак не проявляли себя но влияли на логику работы sort.