For

$blah{one}=~s/a/b/g;
$blah{two}=~s/a/b/g;
[download]

I'd suggest

s/a/b/g foreach @blah{'one', 'two'} ;
[download]

andy.