#!/bin/tcsh
#
#
#
################################################################\


echo "running one liner" 1>&2
perl -ne 'chomp; my @bits = split /,/, $_, 2; for my $other_bit (split /\|/, $bits[1]) { print "$bits[0] $other_bit\n" }' tab_phenotype.csv


