#!/usr/bin/perl -w
$lines[0] = [ qw/ dog cat bird / ];
print $lines[0][0,2,2];