$hash{$var_p} = $var;

##</code><code>##

use strict;
use warnings;
use Data::Dumper;

my @keys = (1 .. 6);
my @values = map $_ + 3, 0 .. $#keys;

my %hash;
@hash{@keys} = @values;

print Dumper \%hash;

##</code><code>##


##</code><code>##