SEQ PRD   H     E     C
 S   C  0.000 0.021 0.979
 L   C  0.000 0.050 0.950
 F   C  0.000 0.117 0.883
 E   C  0.003 0.250 0.747

##</code><code>##

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";
}