my @arr = qw(Larrywall);
print substr( $arr[0], index( $arr[0], q[y] ), 1 );