if ($csv_line =~ /SEQ+/)
{
print "Header of Predictions \n";
}
elsif ($csv_line =~ /(\d)\t(\d)\t(\d.d{3})\t(\d.d{3})\(\d.d{3})/)
{
push @ProteinSeq, $1;
push @Prediction, $2;
print "Amino acid is: ".$1." and Prediction is: ".$2." \n";
}