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