Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my @array = ('dave', 'brian','alex's','eddie's');

print "@array\n";

String found where operator expected at array.pl line 4, at end of lin
+e
        (Missing semicolon on previous line?)
syntax error at array.pl line 4, near "'alex's','eddie's"
Can't find string terminator "'" anywhere before EOF at array.pl line 
+4.

my @array = qw(dave brian alex's eddie's);

barney:/home/darren/perlmonks# perl array.pl
dave brian alex's eddie's