in reply to A simple question regarding join

use strict;
my $i=1;
@array = map{$_ . $i++} qw(TEST TEST TEST);
print "@a";

[download]
-----------------------------------
--the good, the bad and the physi--
-----------------------------------

Replies are listed 'Best First'.
Re: Re: A simple question regarding join
by Limbic~Region (Chancellor) on Feb 20, 2003 at 00:03 UTC
    physi,

    Your code doesn't compile, might I suggest: 

    use strict;
my $i=1;
my @array = map{$_ . $i++} qw(TEST TEST TEST);
print "@array";

    [download]

    Cheers - L~R

[reply]
[d/l]
      Yupp you're right, It was just 'out-of-the-head' and maybe it's to late in the evening ;-) 
      -----------------------------------
--the good, the bad and the physi--
-----------------------------------
[reply]

In Section Seekers of Perl Wisdom