in reply to Break an array. I think.

Hi vox2000, Try this,

@datan = ("1","2","3","4","5","6");
print map{($_ eq "3")?("$_\n"):("$_ ")} @datan;

__END__
1 2 3
4 5 6

[download]

Regards,
Velusamy R.

eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

In Section Seekers of Perl Wisdom