for_hash.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

use DDP;

my @keys = qw/zero one two three four five six seven eight nine ten/;
my %numeral_to_number = ();
for my $value (0..10) {
    $numeral_to_number{$keys[$value]} = $value;
}

p %numeral_to_number;

print <<"RESULT";
numeral_to_number => one is ". $numeral_to_number{one}
numeral_to_number => ten is ". $numeral_to_number{ten}
RESULT

__END__

{
    eight   8,
    five   5,
    four   4,
    nine   9,
    one   1,
    seven   7,
    six   6,
    ten   10,
    three   3,
    two   2,
    zero   0
}
numeral_to_number => one is ". 1
numeral_to_number => ten is ". 10