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

##</code><code>##

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

##</code><code>##

Useless use of a constant in void context at C:\test.pl line 3.
bird