Select Code to Download

use strict;
use warnings;
...
    push ( @{$hasharr{$head}}, $prod);
    push @hashkeys, $head;
}