# Each line has 8 16-bit words, so 16 bytes.
local $/ = \16;

while (<INFILE>) {
   print join ', ',
         map { sprintf('0x%04x', $_) }
         unpack('v*', $_);
   print("\n");
}