use List::Util qw[ first ]; my $class = first { eval "use $_; 1" } qw[ YAML::XS YAML::Syck YAML::Tiny YAML];