foreach my $hr1 (@calls) 
      {
	  my %h1 = %{$hr1};

      $h1{'bid'} = ($h1{'bid'} eq 'N/A') ? 0 : $h1{'bid'}; 
          next unless defined $h1{'symbol'};
	  
    my $ins_rec="INSERT INTO $table (symbol,valuation_dt,expn_dt,strike,open,bid,ask,last,volume) VALUES(\'$h1{'symbol'}\',now(),\'$exp\',$h1{'strike'},$h1{'open'},$h1{'bid'},$h1{'ask'},$h1{'last'},$h1{'volume'});";
	  print "my ins_rec is $ins_rec\n";
	  my $sth=$dbh->do($ins_rec);
      }