my @problems;

foreach my $row (@$data)
{
  my ($cusip, $isin, $sedol, $ticker) = @$row;

  &problem("Missing cusip for $ticker") unless ($cusip);
  &problem("Missing isin for $ticker")  unless ($isin);
  &problem("Missing sedol for $ticker") unless ($sedol);
}

sub problem
{
  my $issue = shift;
  print "$issue\n";
  push (@problems, $issue);
  next;
}