my $thing;
foreach (@array) {
  if (/^1006,(.*)/) {
     $thing=$1;
     last;
   }
}


##</code><code>##

my $thing;
foreach (@array) {
  my ($num,$value) = split /,/;
  if ($num == 1006) {
     $thing=$value;
     last;
  }
}