Select Code to Download

sub make_var_hash{
    my $xml = @_[0];
...
    #end the loop
    return \%myhash;
}

    $hash1 = make_var_hash('MOR2305.xml');
    foreach $key (keys($hash1)){
        print "$key = $$hash1{$key}[0] & $$hash1{$key}[1]\n";
    }

START = MOR_START & 60
FINISH = MOR_FINISH & 150
etc....

sub get_suite_vars{
    my %suite;
...
    }
    return \$suite;
}

sub get_suite_vars{
    my %suite;
...
    }
    return \$suite;
}

START = MOR_START &
...
FINISH = MOR_FINISH & 
ARRAY(0x1931eaf0) = &
etc....