Select Code to Download

 
use strict;
use warnings;
...
        print "\t$time_item => $time_value\n";
    }
}

$VAR1 = {
          'hour' => 4,
...
        sodas_sold => 7
        burgers_sold => 2
Can't use string ("HASH(0x904d00)") as a SCALAR ref while "strict refs
+" in use