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