sub somethingComplicated()
{
  my( $var1, $var2, $var3, $var4 ) = @_;
}