in reply to Assigning value to the array elements

You can assign into elements of an array if they are variables. All work is in one line -- within the print statement. 
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]

Replies are listed 'Best First'.
Re^2: Assigning value to the array elements
by anniyan (Monk) on Oct 28, 2005 at 14:55 UTC

    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)

[reply]
      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.
[reply]
[d/l]

In Section Seekers of Perl Wisdom