I think I've found what I would consider an "elegant" solution to this.

Update: Apologies - my test was flawed - I copied & pasted the lines without intended modifications.

The "map_twice" code does not work as intended- it does not provide the simple, reference-free interface I'm looking for (Second map is unnecessary, and this case degerates to the same as the "ref" case). That code was not being tested.

The code below incorporates previous code on this topic, including tinita's suggestion (replacing 'map' with 'for', since the returned array is not used.)

I'm calling the new method "map_twice", which will now maintain aliases, and pass them into the subrouting parameter. No complications with closures and lvalu subs.

sub map_With_Ref { # kvale ...
    my( $sub )= shift( @_ );
    &$sub( map { \$_->[0] } @_ );
#          ^^^^^^^^^^^^^^^^^^ Here is the selection code
}
sub map_With_Closure { # NetWallah
    my( $sub )= shift( @_ );
    my @closures;
    foreach my $aref(@_){
      push @closures, sub :lvalue{ $aref->[0] };
    }
    &$sub( @closures );
    # I had trouble attempting to dynamically build the equivalent of 
+the 
    # @closures array using the "map {BLOCK}" syntax - apparently that
    # conflicts with lvalue subs.
}
sub map_pass_as_Param{ #tinita's code...
    my( $sub )= shift( @_ );
    &$sub( $_->[0]) for @_;  # Call once for each param passed
}
sub map_twice{  # NetWallah
    my( $sub )= shift( @_ );
    &$sub( map {$_}  map { \$_->[0] } @_     );
}
my @a= ( 1..3 );
my @b= ( 4..6 );
my @c= ( 7..9 );

sub addten_Ref { $$_ += 10  for @_ }
sub addten_With_Closure { &$_() += 10  for @_ }
sub addten_call_Sub { $_[0]+=10} # Only ONE param passed, multiple cal
+ls
sub addten_array { $_ += 10  for @_ }

print "--- REF test --\n";
map_With_Ref( \&addten_Ref, \@a, \@b, \@c );
map_With_Ref( sub { print "$$_\n" for @_ }, \@a, \@b, \@c );
print "--- Closure test --\n" ;
map_With_Closure( \&addten_With_Closure, \@a, \@b, \@c );
map_With_Closure( sub { print &$_() . "\n" for @_ }, \@a, \@b, \@c );
print "--- Calling Passed Sub test --\n";
map_pass_as_Param( \&addten_call_Sub,   \@a, \@b, \@c );
map_pass_as_Param( sub { print shift . "\n" }, \@a, \@b, \@c );
print "--- Double-mapping test --\n";
# "Map-twice" should have been called here ****
map_pass_as_Param( \&addten_array,   \@a, \@b, \@c );
map_pass_as_Param( sub { print "@_\n" }, \@a, \@b, \@c );
[download]

--- OUTPUT----
--- REF test --
11
14
17
--- Closure test --
21
24
27
--- Calling Passed Sub test
31
34
37
--- Double-mapping test --
41
44
47
[download]

---

In reply to Re: Getting a list of aliases to selected items from a list of array references by NetWallah
in thread Getting a list of aliases to selected items from a list of array references by tye

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.