@foo = grep /MyApp/, qw<eval DBIC::3 DBIC::2 DBIC::1 MyApp::3 MyApp::2 MyApp::1 Dancer::3 Dancer::2 Dancer::1>;;

print for @foo;;
MyApp::3
MyApp::2
MyApp::1