#! /usr/bin/perl

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

my %hash;
my $w = 1;
for $v (0..3){
  $hash{$w} = $v;
  $w++;
}

print Dumper(\%hash);