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$
[download]