Declaring Variable Inside Loop Perl