#!/usr/bin/perl

@stuff = ('This', 'is', 'a');
$stuff[3] = 'list';

print "Lists and strings are indexed from 0.\n";
print "So \$stuff[1] = $stuff[1], ","and \$#stuff = $#stuff.\n";
print @stuff,"\n";
print join('...',@stuff),"\n";
splice(@stuff, 3, 0, ('fine', 'little'));
print join('...',@stuff),"\n";