use 5.012;
use List::MoreUtils qw(part);

my $data = [qw(some stuff and so on)];
my ($data, $found) = part { /o/ } @$data;

say join ' ', @$data; # prints 'stuff and'
say join ' ', @$found; # prints 'some so on'