#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my %lut = map { "produkt".$_ , $_ } (1..50000);
my @daten = qw(produkt3 produkt21 produkt93 produkt50000);
print Dumper [map {$lut{$_}} @daten];