Select Code to Download

$idx   = $#{$a1};       # index of last element
$idx   = $#$a1;         # same

...
$item  = ${$a1}[1];     # same

@slice = @{$a1}[0, 1];  # slice of elements