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

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

1;