if( $query->{case} eq "a" ){ use A; 'oder require A.pm; ? }else{ use B; }