#!/usr/bin/perl
use strict;

my %h;
for (0..10) {
        $h{$_}={};
}
for (keys(%h)) {
        print "$h{$_}\n";
}