$ perl -le 'my @gameDB = (1); foreach ( @gameDB ) { print $_; push @gameDB, $_+1; last if $_ == 10}'
1
2
3
4
5
6
7
8
9
10