my $partition=0;
my @parts =
List::MoreUtils::part {
    if($pivots[0]) {
        if($partition % 2 == 0) {
            if($_ =~ $pivots[0]) {
                ++$partition;
            } 
        } else { 
            if($_ !~ $pivots[0]) {
                ++$partition;
                shift @pivots;
            }
        }
    }
    $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";