Select Code to Download

    my $fh=$_[0];
    my $h=$_[1];
    shift @_;
    shift @_;
    foreach my $key (@_)

    my ( $fh, $h, @keys ) = @_;
    
    foreach my $key ( @keys ) {

    my $fh = shift;
    my $h = shift;
    
    foreach my $key ( @_ ) {