my @array = qw(a b c d e f);
my $a = $array[0];
my $b = $array[1];
#aber:
my @CtoE = @array[2..4];