Examples 5-6
#Learning Perl Appendix A, Exercise 3.1 alternate
print "Enter the list of strings:\n";
#Learning Perl Appendix A, Exercise 2.3
print "First number: "; chomp($a = <STDIN>);
print "Second number: "; chomp($b = <STDIN>);
$c = $a * $b; print "Answer is $c.\n";