my( $sigil )= ( $name =~ /^([\$@%&<*])/, '&' );