my @foo = qw(a b c d e f g h i j);
my @bar = @foo[1, 5, 6, 4];         # @bar is now qw(b f g e)
my $bar = $foo[0];