All list problem with Perl