D:\tmp>more tst_b_xref2.pl
use strict;
use warnings;
my $sth;

while ( my @row =$sth->fetchrow) {    #:5 intro
    print "@row";                     #:6 used
}