I suggest you pass in a hash instead of a simple array so that your arguements do not have to be numbered.

if(myfunction(debug=>1,var=>$val)){...}

sub myfunction{
  my @params=@_;
  if($params{debug}){...}
}
[download]