my $sub =eval "sub { s/$_->[0]/$_->[1]/$_->[2] for (\@_)}";