Select Code to Download

Select or download this

my %reasons;
my ($key, $val, @holdval, $holdkey);
while (($key, $val) = (each %{$switch_hash})){
...
       }
    }
}

Select or download this

$VAR1 = { 'Washington' => { 'uslecwas5e1' => { '01-AUG-2002' => '' } }
+,
          'Charleston' => { 'uslecchst5e1' => { '01-AUG-2002' => '' } 
+},
...
          'Knoxville' => { 'uslecknxv5e' => { '01-AUG-2002' => '' } },
          'Tampa' => { 'uslectam5e1' => { '01-AUG-2002' => '' } }
        };

Select or download this

$VAR1 = {
          'DEX:19-AUG-2002' => 'reason again',
...
          'Atlanta:15-AUG-2002' => 'new reason',
          'New Orleans:01-AUG-2002' => 'fake'
        };

Select or download this

$VAR1 = { 'Washington' => { 'uslecwas5e1' => { '01-AUG-2002' => '' } }
+,
          'Charleston' => { 'uslecchst5e1' => { '01-AUG-2002' => '' } 
+},
...
          'Knoxville' => { 'uslecknxv5e' => { '01-AUG-2002' => '' } },
          'Tampa' => { 'uslectam5e1' => { '01-AUG-2002' => '' } }
        };