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