in reply to Uninitialized value in division and Illegal division by zero fix
Tip #4 from the Basic debugging checklist ... Data::Dumper
use Data::Dumper; print Dumper(\%total_mono); [download]