use warnings;
use strict;
use Data::Dumper;

my @foo;
my $flag = 0;
for (qw<eval DBIC::3 DBIC::2 DBIC::1 MyApp::3 MyApp::2 MyApp::1 Dancer::3 Dancer::2 Dancer::1>) {
    last if /Dancer/;
    $flag = 1 if /DBIC/;
    $flag = 2 if $flag and !/DBIC/;
    push @foo, $_ if $flag == 2;
}

print Dumper(\@foo);

__END__

$VAR1 = [
          'MyApp::3',
          'MyApp::2',
          'MyApp::1'
        ];