Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
for ( keys %h ) {
    print join ' ' => %{$_}, ' => ', %{ $h{$_} }, $/;
}

Select or download this

$VAR1 = {
          'hour' => 4,
...
hour 4 minute 44 month 1 day 1 year 2000  =>  fries_sold 3 sodas_sold 
+11 burgers_sold 5 
hour 4 minute 45 month 1 day 1 year 2000  =>  fries_sold 4 sodas_sold 
+7 burgers_sold 2