#!/usr/bin/perl

use strict;
use warnings;

my @array=();
$array[0][0] = "ape";
$array[0][1] = "bear";
$array[0][2] = "cat";
$array[1][0] = "dog";
$array[1][1] = "emu";
$array[1][2] = "fox";
$array[2][0] = "goat";
$array[2][1] = "horse";
$array[2][2] = "ibex";

my $result2 = map { $array[$_][0] =~ /goat/ ? $_ : () } 0..$#array;
my $result3 = grep { $array[$_][0] =~ /goat/ } 0..$#array;

print "R2: $result2 R3: $result3 \n";