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

##</code><code>##

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

##</code><code>##

@row = $sth->fetchrow_array();