Select Code to Download

use strict;
use warnings;
...
}

print Dumper($x);

Global symbol "$i" requires explicit package name at noname.pl line 5.
Global symbol "$i" requires explicit package name at noname.pl line 5.
...
Global symbol "$i" requires explicit package name at noname.pl line 6.
Global symbol "$x" requires explicit package name at noname.pl line 10
+.
Execution of noname.pl aborted due to compilation errors.

use strict;
use warnings;
...
}

print Dumper (\%x);

#1/ Perl for loop:
my %x;
...

#4/ hash slice and x operator:
@x{0 .. 4} = ('x') x 5;