for my $i ( 1 .. 2 ) {
        $h{"$i"} = [@a];
}