my %pages;
$pages{"page1"} = [ 1,2,3];
$pages{"page2"} = [ 5,6,7];

print $pages{"page1"}->[1];
print $pages{"page2"}->[2];