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

my %x;

for (my $i = 0; $i < 5; $i++) {
    $x{$i} = "x";
}

print Dumper (\%x);