Select Code to Download

foreach $i (@row) {
    print(getcode($i), "\n");
    $i++;
}

$sth->execute or die "Cannot execute: $DBI::errstr\n";

@row = $sth->fetchrow_array();