open(IN, "<$file") or die "Cannot open file $file\n";
my @lines = <IN>;

foreach $1 (@lines){
    chomp($1);
    my %columns = split(">", $1);
}

close(IN);