my @symbol=('AAXJ','MCO');
  my @quotes = getquote(@symbol);
  foreach my $q (@quotes)
 {
    my @h = @{$q};

 ($h[$i] eq 'N/A') ? 0 : $h[$i];
 print "ticker is $h[0]\n";
    print "mkt cap is $h[1]\n";