Using splice is easier than doing it with for(;;).

sub ChainSubs{
    local $_ = shift;
    while(@_) {
        my ($s, $t) = splice @_, 0, 2;
        s/$s/$t/g;
    }
    return $_;
}
[download]

Makeshifts last the longest.