Select Code to Download

sub upd_info {
    my ($hashref, $aryref) = @_;
    for my $key (keys %$hashref) {
...
    }
    1;
}