Hex 16 Bit in 2x8 Bit

#!/bin/perl

open(IN, "<file.hex");

open(LO, ">low.hex");

open(HI, ">high.hex");

$buff=0;

while (read(IN, $buff, 1)){

 print LO $buff;      #1. gelesene byte nach LO schreiben 

 read(IN, $buff, 1);  #gehe mal davon aus das immer 2 bytes lesbar

sind

 print HI $buff;      #1. gelesene byte nach LO schreiben

}

close(IN);

close(HI);

close(LO);