#!/usr/bin/perl -n

chomp;
if ($_ ne '') {
	@row = split /\t/, $_;
	if (!$names{$row[1]}) {
		$names{$row[1]} = 1;
		push @names, $row[1]
	}
	$row->{$row[1]} = $row[2];
} else {
	push @f0, @row[0];
	push @rows, $row;
	$row = {}
}

END {
	for (@names) {
		print "\t$_";
	}
	print "\n";
	
	for (@rows) {
		print shift @f0;
		for $n (@names) {
			print "\t", $_->{$n}
		}
		print "\n";
	}
}