Assign Array To Another Array Perl