in reply to Looping in a Loop

You should chomp $list before the "if" statement: 
        chomp $list;

[download]

See also the Basic debugging checklist

In Section Seekers of Perl Wisdom