...

while (my $l = <DATA>) {

    my ($plain,$crypt) = split /\s+/, $l;

    %CDICT{$plain} = $crypt;

    %DDICT{$crypt} = $plain;

}

...

__DATA__

CORPS DIN-NEH-IH

DIVISION ASHIH-HI

REGIMENT TABAHA

...