in reply to Find Index value of a specific element in an array

the code contains too many lines

Hi, here is an alternate way to do this, but as far as efficency i am not sure.

my ($index) = grep $roman[$_] eq "xiv", 0..$#roman;

[download]

Also take a look at this finding index number in an array

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