@array = qw( zero one two three four five six seven eight nine );print "\@array[ -1 ] is $array[ -1 ].\n";print "\@array[ -4 ] is $array[ -4 ].\n\n";