perl -MList::MoreUtils -E '
@foo = reverse List::MoreUtils::before {
    $_ =~ /DBIC/
} reverse List::MoreUtils::before { 
    $_ =~ /Dancer/
} qw<eval DBIC::3 DBIC::2 DBIC::1 MyApp::3 MyApp::2 MyApp::1 Dancer::3 Dancer::2 Dancer::1>; 

say for @foo'