sub dostuff ($$\@$)
  {
    my ($scalar, $scalar, $scalar_REF, $scalar) = @_;
    ..
    ..
    ...Do Some Processing...
  }