sub f { $_[0] }
$a = f(substr(undef,0,1));