sub whatever( @ $ ); # declaration

  whatever(%list,$val);
  
  sub whatever( @ $ )
  {
      my $val = pop( @_ );
      my %list = @_;
      ...
  }