@foo = grep length(), @foo;

# is equivalent to but faster and clearer than

my @tmp;
for my $element_of_foo ( @foo )
{
    if ( length( $element_of_foo ) > 0 )
    {
        push @tmp, $element_of_foo;
    }
}
@foo = @tmp;