for (<DATA>) {
    my ($address,$expected_rule) = split / /;
    my @output = `exim4 -bt $mailaddress`;
    my @routes_as = grep /R:/, @output;
    is $routes_as[0], $expected_rule, "$mailaddress routes as $expected_rule";
};
__DATA__
...