D:\tmp>perl
use strict;
use warnings;
#use subs qw/Dumper/;

eval <<'__CODE__';
    use Data::Dumper;
    $Data::Dumper::Indent = 0;
__CODE__

print Dumper( [map {{$_=>$a++}} "a".."d"] );

__END__
$VAR1 = [{'a' => 0},{'b' => 1},{'c' => 2},{'d' => 3}];
D:\tmp>