Select Code to Download

use List::Util qw( sum );
my %cache;
my @keys = keys %$hash_ref;
...
    }
    push @{ $bar->{$i} }, $a_;
}