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