Yipee, another chance to use my favourite module... It might not run fast, but it'll be cool!

use Quantum::Superpositions;

my $first = any(@routers);
my $second = any(@interfaces);

if ( ($first_arg eq $first)
             and
     ($second_arg ne $second)) {
    # .. do stuff .. #
}
[download]