#!/usr/bin/perl -w
use strict;

sub seven_dwarves_names {
   return qw(sleepy happy grumpy dopey sneezy bashful doc);
}

1;

##</code><code>##

#!/usr/bin/perl -w
use strict;

require "keywords.pl";

...
my @dwarves = seven_dwarves_names();
...