Could you just use regex variable capture? Enclose the toFind and toReplace with parentheses, like:

$data =~ s/($_->{toFind})/($_->{toReplace})/g foreach (@myHashArray);
[download]

And access them to print out to your log with $1 and $2?