use Data::Dumper;

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

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