my @converted_list = map { sprintf('0x%04x', $_) } unpack('v*', $line);
    
my $ctr;
foreach (@converted_list) {
   print OUTFILE "$_, ";
   print OUTFILE "\n" unless ++$ctr % 8;
}