#!/usr/bin/perl -wl
use strict;

my @idx= ( 2, 99, 5 );
my @a2z= ( 'a'..'z' );
my @arr= ( 10..16 );

print        '(@arr,@a2z):       ',
      scalar( (@arr,@a2z) );
print        '(@arr,@a2z)[@idx]: ',
      scalar( (@arr,@a2z)[@idx] );
print        '@arr[@idx]:        ',
      scalar( @arr[@idx] );