Extracting lines

[Greg Wardawy]

Hello all,

I need to print just the lines where the fourth element is not a member of the second list so I wrote the following code:
####################
#!perl -w
open(NOSTOCK, "< nostock.csv")                  || die "can't open nostock.csv for reading: $_!";
open(ORD, "< custord2")                                 || die "can't open custord2 for reading: $_!";
open(CUST, "> cust")                                    || die "can't create cust: $_!";
my ($line, @ord, $i, $aref, @nostock, $bref, $n, $j);
while ($line = <NOSTOCK>) {
        push @nostock, [ split ',', $line ];
}
while ($line = <ORD>) {
        push @ord, [ split ',', $line ];
}
ORD: for $i ( 0 .. $#ord ) {
        $aref = $ord[$i];
        $n = @$aref - 1;
        NOSTOCK: for $j ( 0 .. $#nostock) {
                $bref = $nostock[$j];
                $n = @$bref - 1;
                $comp = $aref->[4] cmp $bref->[0];
                last NOSTOCK if $comp eq 0;
                next NOSTOCK if $comp ne 0;
        }
                print "$aref->[0],$aref->[1],$aref->[2],$aref->[3],$aref->[4],$aref->[5],$aref->[6],$aref->[7],$aref->[8],$aref->[9]" if $comp ne 0;
}
close(NOSTOCK);
close(ORD);
close(CUST);
######################

In what other ways (more efficient, faster or just different) can I complete this task?

Here are parts of my input files:
# custord2:
3,1000000005,R496055,348,PENFUZZY,11.99,1,04,25,00
3,1000000005,R496055,348,RDPILOT,7.99,1,04,25,00
3,1000000005,R496055,351,HOUWHERE,4.95,1,04,25,00
3,1000000005,R496055,351,PENDINNER,6.95,1,04,25,00
3,1000000005,R496055,351,RANONEFISH,8.95,1,04,25,00
3,1000000005,R496055,351,SIMCHEERIOS,5.99,1,04,25,00
3,1000000005,R496055,359,RANGREEN,8.95,1,04,25,00
# nostock.csv:
FNWDISPLAY,
HAVCASTLE,
HAVCONSTRUCTION,
HAVEASYFAMILY,
HAVMASTERCKDLX,
MERNEWBAKING,
MORHORSD,
RANGREEN,
RANONEFISH,
STRSMALL,
TLCELMOART,
TLCLITTLEBEAR,
TLCMADELINE,
WARLITTLEMEALS,

Thanks in advance.
Greg