Array in Array programming

#!/usr/bin/perl
use strict;
use warnings;
print "---------------------------\n";
print "ENTER YOUR COMMENT:\n";
print "---------------------------\n";
open(FD,">","list7.txt");
for(my $i=0;$i<10;$i++)
{
my $lines=<STDIN>;
print FD $lines;
if($lines eq "-q")
{
exit 1;
}
}
print "===========================\n";
print "---------------------------\n";
print "Your comment:\n";
print "---------------------------\n";
my $vrs=`cat list7.txt`;
print $vrs;
print "\n";
print "============================\n";
close(FD);