use overload '0+' => \#
sub num { print "[$_[0]->[0]]"; return $_[0]->[0]; }