use feature 'say';

say "Please enter 3 string variables, :"  . "(Please crtl-D after entering strings)\n ";
@lines = <STDIN>;
say 'Here ', @lines;
chomp(@lines);
@backwards = reverse(@lines); 
say "Here are the values in reverse order:", @backwards;