in reply to Getting different results with $var++ and $var += 1

What's the output of 
use Devel::Peek qw( Dump );
Dump($retail_rate);
Dump($coupon);

[download]

In Section Seekers of Perl Wisdom