sub odd_args
{
     my ($this, $args) = @_;
     print $args->{x},$/;
}

sub odd_args
{
     my ($this, %args) = @_;
     print $args{x},$/;
}