sub doStuff
  {
    my($arg1, $arg2, $arg3, $ar4, @data) = @_;
    ..... # other stuff here
  }