foreach my $arr(grep /\s+/, @array)
{
    push (my @newarray, $arr);
}