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);

##</code><code>##

while (<DATA>) {
    for my $char ( split // ) {
        my @lets = split //, sprintf("%02x",ord($char));
        process( $_ ) for ( @lets );
        print ord( $char ), " KEY\n";
    }
}