#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my %lut = map { "produkt".$_ , $_ } (1..50000);
my @daten = map { "produkt".int(rand(50000)) } (1..20000);
#print Dumper [map {$lut{$_}} @daten];