my @array;
...
#push 1

push @array, $_ for grep{..

#push 2

push @array, $_ for grep{..