my @lookup;
@lookup[1..4] = (
    567898,
    543267,
    234565,
    987654,
);

my @test = qw(0 a 2 1);
for (@test) {
    print defined $lookup[$_] ? $lookup[$_] : $_, "\n";
}