my @aoa = ( ['a' .. 'c'], ['d' .. 'f'], ['g' .. 'i'] ); print "first element - ", $_->[0], "\n" for @aoa; __output__ first element - a first element - d first element - g