Because I am a bad person, I'll tell you that you can do what you want by a) saying ${$vars[$i]}=$_, b) removing the "my" from $first='' and so on, and c) removing the dollar signs from @vars. But don't do that.

Erm, it appears that you want to tie scalars to individual elements of an array if I'm reading your question correctly. Why exactly you'd want to do this and what it'd gain you is escaping me at the moment but the easiest way to get the behavior would be to make $first and friends references to elements of @vars.

my @vars;
my $second = \$vars[1];
my $i = 0;
for ( qw( able baker charlie ) ) { 
  $vars[ $i++ ] = $_;
}
print "second: ", $$second, "\n";
[download]

But again, what that'd be useful for isn't really clear. Read perlreftut and perlref, and perhaps explain what you think doing this buys you. You could also do something with a tied scalar, but that's slightly more complicated.

use List::MoreUtils qw(pairwise);

my ($first, $second, $third, $fourth, $fifth, $sixth);
my  @vars = \($first, $second, $third, $fourth, $fifth, $sixth);
my  @aarr = ('<chap', '<book', '<isb');

print {$,=' '; \*STDOUT}  pairwise { ${$a} = $b}  @vars,  @aarr;
[download]

Thanks that works perfectly for my use. Also thanks for Fletch, wfsp and no_slogan.

The reason i am using this is, i dont know exactly how many values will be in @aarr. But i want to assign those values to some scalar variables which i will use in my program later for another use. If there is any alternative please suggest

Regards,
Anniyan
(CREATED in HELL by DEVIL to s|EVILS|GOODS|g in WORLD)

But i want to assign those values to some scalar variables which i will use in my program later for another use. If there is any alternative please suggest

Change the rest of the program so it doesn't expect the values to appear in scalar variables. Really. Your code will be much easier to understand if it says this:

my $first = $config_values{first};
open my $file, $first;
[download]

rather than just blithely saying the second line and leaving the poor reader to figure out how $first got its value.

#!/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]

Could you show us what you expected the output to look like?