sub foo{
  my $self = shift;
  my %address = (
    name    => '',
    vname   => '',
    bag     => {},
    friends => [],
    future  => undef,
    @_
  );
}