use strict;
my $string = 'ja';

if($string eq 'ja'){
  my $var = 'test';
  next1($var,'hallo');
}

sub next1{
  my ($param1,$param2) = @_;
  my $var2 = 'Hallo Welt';
  print $param2," ",$param1,"\n";
  next2($var2);
}

sub next2{
  my ($param1) = @_;
  print $param1;
}