use data::Dumper;

sub some_sub {
  my $args = {
    first_name => '',
    surname    => '',
    @_
  };
  print Dumper $args;
}

some_sub qw/Edward Lear/;

##</code><code>##

$VAR1 = {
          first_name => 'Edward',
          surname    => 'Lear',
        };

##</code><code>##

some_sub qw/Edward Lear/;

##</code><code>##

some_sub first_name => 'Edward', surname => 'Lear';