Select Code to Download

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

>perl 765727_1.pl
Odd number of elements in anonymous hash at 765727_1.pl line 38.
func_1: one translates to uno
Odd number of elements in hash assignment at 765727_1.pl line 48.
func_2: one translates to uno