sub str_array_replace {
	my @search = @{$_[0]};
	my @replace = @{$_[1]};
	my $string = $_[2];

	for(my $i=0;$i<=$#search;$i++) {
		$string =~ s/$search[$i]/$replace[$i]/g;
	}

	return $string;
}

%arg = ();
%arg = (%arg, ("Jon" => "Jame", "Peter" => "Tim"));

print str_array_replace([keys %arg],[values %arg],"Jon meets Peter.");