@roman = qw(i ii iii iv v vi vii viii ix x xi xii xiii xiv xv xvi xvii xviii xix xx);
$indx=0;
for (@roman) {
     $indx++;
     print "Index value for $_ is: $indx" if ($_ eq 'xiv');
}