#!/bin/sh
head -1 $1 | \
	tr "\t" "\n" | \
	cat -n | \
	percol | \
	awk '{print $1}' | \
	xargs -I c awk -v x=c  'BEGIN{FS="\t"}{print $x}' $1 | \
	less