*Trek; *Wars; close(encounters/3) || kind(); return $jedi; my ($beautiful, $laundrette); $The = flock(); package The; exit; values %family; split /wide/,@open; sub down(); $sense[5]; # note - array starts at 0 $element[4]; $protocol[3];