if ($record->[1] =~ /$data->[0]/) {