open(IN, $ARGV[2]) or die "Can't read $ARGV[2]: $!\n";

my ($in,@workarray);
while( sysread(IN,$in,length($enckey)) ) {
    push @workarray,$in^substr($enckey,0,length($in));
}