Here's a possible solution that "seems" to work for me:

sub hi {
my $self = shift;
my %args = (@_);
my ($name,$age) = (@_);
my $byname = 0;
foreach my $needed (qw(age name)) {
        $byname=1 if $args{$needed};
}
if ($byname) {
        $name = $args{name};
        $age = $args{age};
}
return "Name: $name Age: $age";
}
[download]

The idea was pretty much copied from http://groups.yahoo.com/group/soaplite/message/230.

_14k4 - perlmonks@poorheart.com (www.poorheart.com)