use Data::Dumper;

for $i (0 .. 4) {
   $x{$i}="x";
}

print Dumper(\%x);