while ( $sth->fetch() )
{
     ....
}

##</code><code>##

while ( $sth->fetch() )
{
      chomp $x;
      last if ( $x =~ /^foo/ );
}

print "$x\n";