use warnings;
use strict;

func_1({ one => 'uno',  two => 'dos',  three =>   });  # <-- line 38

func_2(one => 'uno',  two => 'dos',  three =>   );

sub func_1 {
    my %args = %{ $_[0] };
    print "func_1: one translates to $args{one} \n";
    }

sub func_2 {
    my %args = @_;  # <-- line 48
    print "func_2: one translates to $args{one} \n";
    }