$dbi = DBI->connect('Blah', 'Blah', 'Blah', 'ODBC');
$dbistmt = $dbi->prepare(" SELECT * FROM MyTable" );   
$dbistmt->execute;
while(@publication_record = $dbistmt->fetchrow()){
  last if $publication_record[0]=~/^$PublicationId$/
}
$dbistmt->finish;
$dbi->disconnect;

$Pu_strID = $publication_record[0];
$Pu_PuStOp_strID = $publication_record[1];
$Pu_PuTy_strID = $publication_record[2];
$Pu_strName = $publication_record[3];
etc..