use data::Dumper;

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

some_sub qw/Edward Lear/;