Alternate approach:

my $aref;
@$aref = split //, 'tempfoo';
print $aref->[0];
[download]

------------------------------------------------------------
"Perl is a mess and that's good because the
problem space is also a mess." - Larry Wall