open(A,"6k6.csv");
open(B,">6k6.fp");
binmode B;
while(<A>)
{
if($_=~m/(".*"),(.*)/gi)
{
$temp=$2;
$temp=~tr[,\n][]d;
print B "$1".pack 'b*',$temp;
print B "\n";
}
}