Perl-массив разделения на основе условия с использованием grep

У меня есть код Perl, который выглядит примерно так:

my @array = map { rand } ( 1..100 );
my @matching = grep { $_ == $condition } @array;
@array = grep { $_ != $condition } @array;

Это работает нормально, но я бы хотел разделить исходный массив на два на основе одной операции ... Я считаю, что провожу в два раза больше операций, чем это необходимо.

Помощь приветствуется !! Спасибо.