foreach (@args) {
    my @b;
    <...>
    @b = ();
    trim(@b); # silently the same as trim($_) since @b has no elements
    <...>;
}