pcol() {
perl -pale "\$_=\$F[$1]" $2
}