struct T_Row =>  {t_rownum=> '$', 
                t_SEARCH_COL => '$' ,
		t_IMAGE=> '$'
		}  ;	

my @t_list  = qw(t_SEARCH_COL   t_IMAGE) ;

 my %t_hash = ( "SEARCH_COL" , SEARCH_COL,

                "IMAGE"      , IMAGE );

	 $extractedRow = T_Row->new (t_rownum => $row) ; # begin next row
         $extractedRow->t_SEARCH_COL ( "$scol" );