Select Code to Download

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