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

@words = qw(baloney has a first name);

open (TEXTFILE,">>/menu.txt") || die "where's the damn file? : $!";
print TEXTFILE @words;
close (TEXTFILE) || die ("close damn you  : $!";