I feel like I'm getting warmer and that I have to move the foreach loop into the global section. Thanks for the advice thus far. I'm reading the docs prescribed by you all.
#!/usr/bin/perl
print "Let's start! \n";
print question();
chomp($input=<STDIN>);
print answer();
sub question {
@array_q = `cat quiz.txt | grep ?`;
foreach(@array_q){print $array_q[0]
}
}
sub answer {
$/ = -00;
@array_a = `cat quiz.txt | grep -v ?`;
foreach(@array_a){print $array_a[0]
}
}
bash-3.2$ ./quiz.pl
Let's start!
Name 2 shapes?
Name 2 shapes?
Name 2 shapes?
sadf
square
circle
North America
Neil Armstrong
bash-3.2$