use strict;

my @line1 = ('annoying sensei',
	     'oh, young grasshopper',
	     'dis-honourable',
	     'you aburi brain'
            );

my @line2 = ('learn to run before you walk',
	     'he thinks he knows everything',
	     'insubordinate pupil',
	    );

my @line3 = ('hey, wait a minute',
	     'he must be senile',
	     'he will face my wrath',
	     'his brain is not well'
            );

print $line1[rand @line1], "\n";
print $line2[rand @line2], "\n";
print $line3[rand @line3], "\n";