#!/usr/bin/perl

@word = qw(Tend to the master's whistle);

foreach $word (@word){
	$word = "\t$word";
	$word .= "\n";
		}

print "Boatswain warns:\n", @word;