use strict;
use warnings;

print <<'JONAG';
Do you want to print the program's
  1. default strings in reverse order
  2. or enter your own to be reversed ?
Choose option 1 or 2 or q to quit
JONAG

my $choice = <STDIN>;
chomp $choice;
if ($choice eq 'q') {
    print "quitting\n";
    exit;
}

# This is the default value.
my @lines = qw( wrda vzc rregr zfgr bzfgzffg rergrge d fgsrg rwer ds vsgsrg );

if ($choice == 2) {
    print STDERR "enter your own strings\n";
    chomp(@lines = <STDIN>);
}

foreach my $line (reverse @lines) {
    print "\t$line\n";
}

##</code><code>##

print "do you want to print the program's\n", "1. default strings in reverse order\n", "2. or enter your own to be reversed ?\n";

##</code><code>##

print <<'JONAG';
Do you want to print the program's
  1. default strings in reverse order
  2. or enter your own to be reversed ?
Choose option 1 or 2 or q to quit
JONAG

##</code><code>##

chomp $choice;
if ($choice eq 'q') {
    print "quitting\n";
    exit;
}

##</code><code>##

my @lines = qw( wrda vzc rregr zfgr bzfgzffg rergrge d fgsrg rwer ds vsgsrg );

##</code><code>##

foreach $line (@proglines) {
	$line = "\t$line";
	$line .= "\n";
}
print "@proglines";

##</code><code>##

foreach my $line (@proglines) {
    print "\t$line\n";
}

##</code><code>##

print map { "\t$_\n" } @proglines;