Select Code to Download

while (<FILE>){
 chomp;
...
foreach (sort {$a->{km} <=> $b->{km}} @stores) {
  print "...."
}