Select Code to Download

@populations = (4);

        %HoH = (
            @populations => {
...
                chromosome2  => "@chromb",
            },
        );

use strict;
use warnings;
...
    print Dumper(%HoH);
    return %HoH;        # returned as list; to returna ref, use \%HoH
}