[
 {name => "PA1"},
 {name => "PB3"},...
]
[download]

.. also need ..
my @hash_names = map{ {name=>$_} } @all_names;
poj

my @all_names = map { {name => $_->{name}} } @{ $data }[1 .. $#$data];
[download]

This line works, but


my @all_names = map { {name => $_->{name}} } @{ $data }[1 .. $#$data];
[download]


I just need some explaining in how different one line of code is from another, why wouldn't the name=>"Accounts" be picked up by the code here:


use warnings;
use strict;
use Data::Dumper;

my $data = 
[
  {
    val => "action",
    name => "Accounts",
    id => "None",
  },
  { name => "PA1", id => "AUTOB" },
  { name => "PB3", id => "AUTOP" },
  { name => "BOX", id => "BOP" },
  { name => "DW0", id => "DFIRE" },
  { name => "QW3", id => "HOME" },
  { name => "CM7", id => "CUMBR" },
  { name => "BR1", id => "PUMBR" },
  { name => "TY6", id => "ECUST" },
]
;

#my @all_names = map { $_->{name} } @{ $data }[1 .. $#$data];
#my @hash_names = map{ {name=>$_} } $data;
my @all_names = map { {name => $_->{name}} } @{ $data }[1 .. $#$data];

print Dumper(\@all_names);
#print Dumper \@hash_names;

__END__
[download]

Such a good answers , thanks!

The point to map is that you can run the elements of the list through any code you like in the map block.

map assigns the result of the last evaluated statement in the block, you don't always have to can't say return $foo;, but can just say $foo, as shown in all these examples. I tend to eschew many of Perl's shortcuts (like omitting a return statement from a block) because I prefer readability, but when it's a single statement, as is often the case with map, it's nice to be able to skip it.

But if it's clearer to you to write:

my @hash_names = map{ return {name => $_}; } @all_names;
[download]

then by all means do that.
edit: no, don't do that
The way forward always starts with a minimal test.

Using return in a map returns from the enclosing subroutine. Cf:

say for sub { map { "\U$_" } @_ } ->(qw( abc def ghi ));
# ABC
# DEF
# GHI
[download]

versus

say for sub { map { return "\U$_" } @_ } ->(qw( abc def ghi ));
# ABC
[download]

and even

say for map { return "\U$_" } qw( abc def ghi );
# Can't return outside a subroutine at -e line 1.
# [255]
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]