use strict;
use warnings;

my %hash = ();
foreach my $a (1..500) {
print "."; # <- Show we're alive by printing a dot...
    foreach my $b (1..4000) {
        foreach my $c (1..10) {
            foreach my $d (1..7) {
                $hash{$a}{$b}{$c}{$d} = $d;
            }
        }
    }
}
print "here\n";