Select Code to Download

use constant {
    NULL => 0,
...
{
    print "$_ = $english_translation{$_}\n";
}

EINS = One
NULL = Zero
ZWEI = Two

0 = Zero
1 = One
2 = Three