hoge.pl

use 5.14.2;
use Data::Dumper;

my @array;

for (1..100) {
  my $gene;
  $gene->{tpi} = $_; 
  $gene->{start} = $_ * 100;
  push @array,$gene;
}
say Dumper \@array;