$ref=\(split(//, "tempfoo"));
print $ref->[0], "\n"; # should print "t"