my @bar = qw[ dog cat frog ];

sub foo 
{
        my @foo = grep{length}(@_, (!@_ && @bar));

        print join(',', @foo),"\n";
}