doit('here is my input', 'some more');

sub doit
{
   my ( $in1, $in2 ) = @_;
   print "$in1\n";
   print "$in2\n";
}