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";
}