#!/usr/bin/perl

use strict;
use warnings;

# fill the 2-d array
my @data;
for ( 0..2 ) {
  push @data, [qw 'a bc def' ];
}

# try extracting last element from each stored array
my @for_data = slice_with_for ( @data );
my @map_data = slice_with_map ( @data );
my @sort_data = slice_with_sort ( @data );
my @grep_data = slice_with_grep ( @data );

# show the y-axis slices
print "for :  @for_data\n";
print "map :  @map_data\n";
print "sort:  @sort_data\n";
print "grep:  @grep_data\n";

exit;


sub slice_with_for
{
  my @slice_me = @_;
  my @last_fields;
  push @last_fields, $_->[2] for @slice_me;
  @last_fields;
}


sub slice_with_map
{
  my @slice_me = @_;
  return map { $_->[2] ? $_->[2] : () } @slice_me;
}


sub slice_with_sort
{
  my @slice_me = @_;
  sort { $a->[2] cmp $b->[2] } @slice_me;
}

sub slice_with_grep
{
  my @slice_me = @data;
  grep { $_->[2] } @slice_me;
}

exit;
[download]

My questions:
1. What other ways are there to iterate over the list besides for, sort, map, and grep?
2. Why don't my slice_with_grep and slice_with_sort functions return what I'm expecting?
3. Am I drunk, or is the water? That is, have I invented this whole notion of a "transitory variable", or is it really something that exists (albeit momentarily) and should be avoided?

blyman
setenv EXINIT 'set noai ts=2'