use Data::Dumper;

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

}

print Dumper($x);