Select Code to Download

use Tie::Autotie 'Tie::IxHash';
tie %hash_ref, 'Tie::IxHash';  # yuck, that variable's name!
$hash_ref{MAIN}{ZOP}{Dev} = undef;
$hash_ref{MAIN}{ZOP}{Con} = undef;
... # etc

sub ixhash {
     tie my(%hash), 'Tie::IxHash';
     %hash = @_;
     return \%hash;
}

use Tie::IxHash;
tie %hash_ref, 'Tie::IxHash';
...
                        'Exit' => undef,                             
                    )
             );