DB<15> @c =  qw /jan feb mar apr may jun/
  DB<16> for ( 0..$#c ) { print $_ if $c[$_] =~ /ay/ }
4