How about this then?

my @store = (    # use a hash if your keys aren't all small scalars
    undef,           # given that you want to start at 1
    [ 1, 2, 3, 4 ],
    [ 5, 6, 7, 8 ], 
    # etc.
);

foreach my $i ( 1..5 ) {
  my $idString = join( q{, }, @{$store[ $i ]} );
  print FINAL "create table bce.week_g${last_4_chars}v00_temp$i as\n".
  "select distinct(a.FILEDATE), a.RPTSTORE, b.LOC_N\n".
  "From bce.week\n".
  "where ID in ($idString);\n";
}
[download]