Select Code to Download

%station_data = (1, [@station1],
                 2, [@station2],
                 3, [@station3],
                 ...

{
  no strict 'refs';
  $station_data{$_} = \@{"station$_"} for 0..9;
}