uninitialized value in substitution iterator 1

[JohnLucania]

my @SeqChar;
print "Enter sequences and 'enter' and then Ctrl + D: ";
chomp(@SeqChar = <STDIN>);

sub trans {
my %translate = (
'aug' => 'asn',
'uag' => 'cya',
'gcu' => 'tis',
'aag' => 'lis',
'atg' => 'phe'
);
for( @SeqChar ){
tr/atcg/uagc/;
s/(...)/$translate{$1}/g;
print $_,"\n";
}
}

trans();

Why am I getting these errors?

./tchar.pl
Enter sequences and 'enter' and then Ctrl + D: atgatg
Use of uninitialized value in substitution iterator at ./tchar.pl line 19, <STDIN> line 1.
Use of uninitialized value in substitution iterator at ./tchar.pl line 19, <STDIN> line 1.

jl

 

[tdatgod]

Because your variable

$translate{$1}

translates to UNDEFINED because $1 doesn't match any of your %translates Keys .

Your Input

atgatg

is translated to

uacuac

by the tr/atcg/uagc/

And uac doesn't have a translation.

 

[JohnLucania]

I got it.
Thanks a bunch