sub record_foo # parse foo type record
sub record_bar # parse bar type record
sub record_boo # parse boo type record 

sub record_xxx {
  if($endian eq 'little') {
   unpack("v3A*" ...);
} elsif ($endian eq 'big') {
  unpack("n3A*"...);
 }