#!/usr/bin/perl
chomp ($line = <STDIN>);
@fields = split /\t/, $line;
while (defined ($line = <STDIN>)) {
	chomp $line;
	@values = split /\t/, $line;
	for ($i=0; $i<@fields; ++$i) {
		print $fields[$i], "\t", $values[$i], "\n";
	}
	print "\n";
}