#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my @alpha = ( 'a'..'z' );
my @num = ( 1..26 );
my %lut;
@lut{@num} = @alpha;

print Dumper \%lut;

print $lut{$_}, "\n" for ( 1, 26, 2, 25);