#!/usr/bin/perl
use warnings;
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";
print "chose options 1 or 2\n";
$an1 = 1;
$an2 = 2;

$choice = <STDIN>;

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

@result = reverse(@lines);
foreach $line1 (@result){
	$line1 .= "\n";
}
print "@result";
}

elsif ($choice = $an1) {
@proglines = reverse(qw ( wrda vzc rregr zfgr bzfgzffg rergrge d fgsrg rwer ds vsgsrg ));

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