wanted($spls);
...
sub wanted {
   my $spls = shift @_;
   print $spls;
}
[download]

See perlsub.