Fix deprecation warnings

s/bless(*, /bless(/
s/%.exists($key)/${$key} :exists/