#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my @ids = qw( 01 02 03);
my @names = ('Heiz','Otto','Karl');

my %hash;
@hash{@ids} = @names;

print Dumper \%hash;