Perl Array Name Using Variable