Select Code to Download

        foreach my $element (keys%cart){
                print "\n$element\n";
                $grocerytotals{$count} = $count + $grocerytotals{$coun
+t};
                print "$grocerytotals{$count} items added to current t
+otal";
        }

#!/usr/local/bin/perl
use strict;
...
        next;
    }
}