Assign arrays to variables on Perl