in reply to defining a new var on the spot
$name = 'anyVarName'; eval ("\$$name = 20;"); print $anyVarName; [download]
Best regards, perl -e "print a|r,p|d=>b|p=>chr 3**2 .7=>t and t"