&mysub() for (grep { defined and $_ ne "" } @array[9..13]);