#!/usr/bin/perl -w

use strict;

my @arr = (
            ['one','two','three','four'],
            ['first','second','third','fourth'],
            ['jim','bob','bill','sally'],
          );

print $arr[1]->[1]; # prints "second"