while ( my $records = fetch_next_5000_records_from_sth() ) {
  $runner->run( ..feed records to Amazon... );
)

##</code><code>##

while ( my $record = $sth->fetch() ) {
  $runner->run(... feed record to service ...);
}