my @modules=qw/Module::One_XS Module::Two_PP/;
foreach my $module (@modules) {
    eval qq| use $module |;
    last unless $@
}