while (my ($k,$v) = each %$self) {
   $k =~ s/^_//;
   eval '$'.$k.'= $v';
}