coela · June 28, 2012 12:11
diff --git a/hoge.pl b/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;
	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;