#!/usr/bin/perl -w

&initarg;
while ($i !~ /stop/i) { # hey! all I could think of! :)
       printf("Please enter phrase number %d : ", $count+1); # here's where knowing some c has helped me
       chomp ($i = <STDIN>);
       $phr[$count] = $i;
       $count++;
}

&printarg(@phr);

sub printarg {
   my $count = 1;
   foreach $i (@_) {
     print "Phrase number $count : $i\n";
     $count++;
   }
}

sub initarg {
@phr = (); # the author suggests initializing variables to null
$i = ""; # done yet?
$count = 0; # number of the phrase
}