Select Code to Download

$sth->execute;

...
    # And now the same hash is re-used for every iteration.
    print "$row{region}: $row{sales}\n";
}