- or download this
use strict;
use warnings;
...
my @terms = qw(Mom Wife Son Daughter);
my %fam_old = map{ $tool => { $_,1 }} @terms;
print Dumper \%fam_old,"\n";
- or download this
Global symbol "$tool" requires explicit package name at ...\noname.pl
+line 6.
Execution of ...\noname.pl aborted due to compilation errors.
- or download this
my %fam_old = map{$_, 1} @terms;
- or download this
$VAR1 = {
'Son' => 1,
...
};
$VAR2 = '
';