print "Enter your data and then it will print out in reverse order.\n";

 @input = <stdin>;
 chop (@input);

 $currentline = 1;
 while($currentline <= @input)
 {
  @words=split(/ /,$input[$currentline - 1]);
  #@words=reverse(@words);
  $input[$currentline - 1]=join(" ",@words,"\n");
  last if $input eq 'done';
  $currentline++;
 }

 @input=reverse(@input);
 print(@input);