use List::MoreUtils qw/first_index last_index/;
use 5.010;
use strict;
use warnings;
my @a = qw<eval DBIC::3 DBIC::2 DBIC::1 MyApp::3 MyApp::2 MyApp::1 Dancer::3 Dancer::2 Dancer::1>;
my $from = last_index  { /DBIC/ }   @a;
my $to   = first_index { /Dancer/ } @a;
say for @a[$from + 1..$to - 1];