#! /usr/local/bin/perl

$virgin = 1;

$hdr = <>;
chop $hdr;
@hdr = split (/\t/, $hdr);

while (<>) {
  if ($virgin) {
    undef $virgin;
  } else {
    print "\n";
  };
  chop;
  @li = split (/\t/, $_);
  foreach $h (@hdr) {
    $x = shift (@li);
    if ($x) {
      print "$h: $x\n";
    };
  };
};