#!/usr/bin/perl
# 2-d array-slice

my @arr = (['a','b','c'],
          ['h','i','j'],
          ['x','y','z']);

print map $_->[1], @arr;
print "\n";