Perl 2nd problem start