Select Code to Download

use 5.010;
use strict;
...
    narrow @list,
    from   {   1  + last_index  { /^DBIC/ }   @_ }
    to     { (-1) + first_index { /^Dancer/ } @_ };