for my $i (0..@$loop-1) {
    foreach (qw( action type domain priority target )) {
        $body .= $loop->[$i]{$_};
    }
    $body .= "\n";
}