use Eval;
print "Next year, I will make $Eval{$SALARY*1.06} dollars\n";
%Eval is a tied hash, so the FETCH method is called:
sub FETCH { $_[1] } # Identity function
It is called with the argument "47700"
It then returns "47700" as the value 'stored' in the hash
Result:
Next year, I will make 47700 dollars
Or if you prefer:
print "The square root of 2 is $Eval{sprintf("%.4f", sqrt(2))}\n";
print "The employee's name is $Eval{$employee->name}\n";
Andrew Pimlott invented this trick