say substr($foo[1], 1, 1);