Perl: foreach (@list) { code } is better