#!/usr/bin/perl -Wall

use strict;
use Data::Dumper;

my $header = <>; # read 1st line = header (column names)
my @colnames = split '\t', $header;
while (<>) {
	chomp;
	my ($from, @list) = split '\t';
	for (my $i=0;$i<scalar @list;$i++) {
		print "$from\t$colnames[$i]\t$list[$i]" if $list[$i] >= 52; # prec=0.3
	}
}
