use constant {
    NULL => 0,
    EINS => 1,
    ZWEI => 2,
};
my %english_translation = (
    NULL, "Zero",
    EINS, "One",
    ZWEI, "Two",
);
foreach ( keys %english_translation )
{
    print "$_ = $english_translation{$_}\n";
}