my $sigil= ($name =~ s/^([$@%&<*])//) ? $1  : '&';