open (DAT, "$file") || die "$!\n";
    while (<DAT>) {
        seek(DAT, $cc, 0);
        read(DAT, $tmpR, 1);
        $tmpR = sprintf("%02x", ord($tmpR));
        my @lets = split(//, $tmpR);
        $data = process($lets[0]);
        $data = process($lets[1]);
        print hex($lets[1].$lets[0])." KEY\n";
        $cc++;
    }
    close(DAT);