# I'd use a better variable than $line, but I don't know
# what your purpose is, and your Tryptic names are quite
# cryptic for me.
for my $line (@aTryptic) {
    my $accSeq = SplitFields($line], 'split');
    $line =~ s/\r?\n\z//g;
    $hTryptic{$accSeq} = $line;
    $line = $accSeq;
}