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