Obviously, I can't do $p->$key==$val, much as that would come in handy right now.

$ perl -le 'sub a { "x" } sub b { "y" }; $p = bless {}; for $key ( qw(
+ a b ) ) { print $p->$key() }'
x
y
[download]

Yes, you obviously can't do that.