fx(%ENV);

sub fx{
  my %args = (
    foo => 1,
    bar => 2,
    baz => 'default',
    @_
  );
  print $args{foo}; # 1
}