use Devel::Peek qw( Dump );
Dump($retail_rate);
Dump($coupon);