BEGIN { if (defined($in{bus}) && $in{bus} =~ /frhb$/i) { use MyModule::PckgName; } elsif (defined($in{bus}) && $in{bus} =~ /frhb2$/i) { use MyModule2::PckgName; } elsif (defined($in{bus}) && $in{bus} =~ /frhb3$/i) { use MyModule3::PckgName; } elsif (defined($in{bus}) && $in{bus} =~ /frhb4$/i) { use MyModule4::PckgName; } elsif (defined($in{bus}) && $in{bus} =~ /frhb5$/i) { use MyModule5::PckgName; } elsif (defined($in{bus}) && $in{bus} =~ /frhb6$/i) { use MyModule6::PckgName; } elsif (defined($in{bus}) && $in{bus} =~ /frhb7$/i) { use MyModule7::PckgName; } elsif (defined($in{bus}) && $in{bus} =~ /frhb8$/i) { use MyModule8::PckgName; } }