This is almost exactly like a recent post. Just searching on "stderr redirect" matches many relevant nodes. Good luck.

@a=split??,'just lose the ego and get involved!';
for(split??,'afqtw{|~'){print $a[ord($_)-97]}