foo(1,2);
bar(1,2);

sub foo { print pop; print pop }
sub bar { print shift; print shift }

##</code><code>##

sub get_data {
   my ($name,$value,$uri) = @_;
   return SOAP::Data->name($name => $value)->type('string')->uri($uri);
}