Select Code to Download

my $id = 1006;
my $answer;
for (@data) {
    last if ($answer) = /^\Q$id\E\s*,(.*)/o;
}