use List::MoreUtils qw(part);
my @chunks = ...;  # as above
shift @chunks;     # as above
my $ix = 0;
my ($prefixes,$texts) = part {++$ix % 2} @chunks;
# or
my %text = @chunks;
say "Text value AF is $text{AF}";