while ( my (my $LINK_ID, $POI_ID, $FAC_TYPE, ....  $TEST_ID) = $sth->fetchrow_array())