Select Code to Download

use strict;
use warnings;
use Data::Dumper;
my %hash = map { split; $_[1] => $_[0] } "value key", "meaning-of-life
+ 42";
print Dumper( \%hash );

Use of implicit split to @_ is deprecated at dent.pl line 4.
$VAR1 = {
          '42' => 'meaning-of-life',
          'key' => 'value'
        };

Useless use of split in void context at dent.pl line 4.
Use of uninitialized value in list assignment at dent.pl line 4.
...
$VAR1 = {
          '' => undef
        };

use strict;
use warnings;
use Data::Dumper;
my %hash = map { (split)[1,0] } "value key", "meaning-of-life 42";
print Dumper( \%hash );