#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';
use Data::Dumper;

my %valid_inputs = (
   one => 1,
   two => 2
);

validate(
   valid_inputs => \%valid_inputs,
   max_record_length => 72,
);

sub validate
{
   my %params = (
      valid_inputs => {
         one   => 'one',
         two   => 'two',
         three => 'three',
         four  => 'four',
      },
      max_record_length => 24,
      @_,
   );
  
   my $valid_inputs = $params{valid_inputs};
   say '@_ ['.Dumper( \@_ ).']';
   say '%params ['.Dumper( \%params ).']';
   say '%valid_inputs ['.Dumper( \%valid_inputs ).']';

}
#EOF

Output:
@_ [$VAR1 = [
          'valid_inputs',
          {
            'two' => 2,
            'one' => 1
          },
          'max_record_length',
          72
        ];
]
%params [$VAR1 = {
          'valid_inputs' => {
                              'two' => 2,
                              'one' => 1
                            },
          'max_record_length' => 72
        };
]
%valid_inputs [$VAR1 = {
          'two' => 2,
          'one' => 1
        };
]