sub parse_header {
   my $header = shift;
   do this and thia
}