for my $i ( 0 .. ( $replication_rounds - 1 ) ) {
    for my $j ( 0 .. $#{ $allgen{$i} }  ) {
        my $date = BlahIjMeSomeDate( 200, $i, $j );
        print "\>RandomHA $date \n" . $allgen{$i}[ $j ] ."\n";
    }
}