Perhaps use a hash to hold the output?

#!/bin/perl5

use strict;
use warnings;

my @vars = qw(
  first second third fourth fifth sixth
);
          
my @aarr = ('<chap', '<book', '<isb');    
my %out; # hash to hold output
my $i = 0;

for (@aarr)    {
  $out{$vars[$i]} = $_;
  $i++;
}

print "$out{first}\t$out{second}\t$out{third}\n";

__DATA__
---------- Capture Output ----------
> "c:\perl\bin\perl.exe" _new.pl

<chap    <book    <isb

> Terminated with exit code 0.
[download]