...
    @samples = split(//,$_);

    while (@samples) { 
        print OUTFILE sprintf("0x%02x%02x",map{ord}reverse splice @samples,0,2 ).", ";