my @ar = map { chomp; $_ } <DATA>;
print +(split /,/,
        $ar[ grep { /^(\d+)/ and $1 < 1006 } @ar ])[1], $/;

__DATA__
1001,choochoo
1002,candycane
1003,sockpuppet
1004,choochoo
1005,candycane
1006,sockpuppet6
1007,foo
1008,bar