Select Code to Download

List::MoreUtils::after_incl {
    $_ !~ /DBIC/
...
} List::MoreUtils::before { 
    /Dancer/
} @YourList

my $partition=0;
my @parts =
...
    $partition
} qw<eval DBIC::3 DBIC::2 DBIC::1 MyApp::3 MyApp::2 MyApp::1 Dancer::3
+ Dancer::2 Dancer::1>;
print join(',',@{ $parts[2] }),"\n";

my @input=qw<eval DBIC::3 DBIC::2 DBIC::1 MyApp::3 MyApp::2 MyApp::1 D
+ancer::3 Dancer::2 Dancer::1>;
my @firsts=@input[0..@input-2];
...
    }
} @firsts, @seconds;
print("@result\n");