#! perl -sw
use 5.010;
use strict;

my %smallBits;
open SMALL, '<', '758205.small' or die $!;
$smallBits{ (split)[ 0 ] } = $_ while <SMALL>;
close SMALL;

open GOOD, '>', '758205.good' or die $!;
open BAD,  '>', '758205.bad'  or die $!;

open BIG, '<', '758205.big' or die $!;
while( <BIG> ) {
    chomp;
    my $substr = (split)[ 5 ];
    if( exists $smallBits{ $substr } ) {
        say GOOD "$_ : $smallBits{ $substr }";
    }
    else {
        say BAD $_;
    }
}
close BIG;
close GOOD;
close BAD;
__END__
[15:41:05.05] C:\test>758205.pl

[15:41:08.85] C:\test>dir 758205.*
 Volume in drive C has no label.
 Volume Serial Number is 8C78-4B42

 Directory of C:\test

17/04/2009  15:41            16,855 758205.bad
17/04/2009  15:26        37,200,976 758205.big
17/04/2009  15:41        46,067,745 758205.good
17/04/2009  15:40               529 758205.pl
17/04/2009  15:28         5,422,408 758205.small
               5 File(s)     88,708,513 bytes
               0 Dir(s)  419,386,847,232 bytes free

[15:41:35.14] C:\test>wc -l 758205.small
 266000 758205.small

[15:43:32.02] C:\test>wc -l 758205.big
 380000 758205.big