Homework alert. Although hardburn has kindly provided you with a bunch of code, it's the kind of code that 10 minutes digging around this site would have produced. Honestly mate - it's for your own good :) Sure - you could sail through on other peoples code and get the piece of paper you need - *or* you could learn something. Trust me - it's more fun the second way.

Cheers
Ben.

You just open each file handle in turn and keep pushing the lines on to the array:

my @lines;
open(IN1, '<', 'file1') or die $!;
while(my $line = <IN1>) { 
    chomp $line;
    push @lines, $line;
}
close(IN2);

open(IN2, '<', 'file2') or die $!;
while(my $line = <IN2>) { 
    chomp $line;
    push @lines, $line;
}
close(IN2);


my $size = scalar(@lines);   # Get the size of the array
[download]

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated

Cheers - L~R

use strict;

open(QUESTIONS, '<', 'questions.txt') or die $!;
open(ANSWERS, '<', 'answers.txt') or die $!;

my @quiz;
while(my $question = <QUESTIONS>) {
    my $answer = <ANSWERS>;
    chomp ($question);
    chomp ($answer);
    push @quiz, {
        'q' => $question,
        'a' => $answer,
    };
}

close(QUESTIONS);
close(ANSWERS);

my $nquestions = scalar(@quiz);
[download]

for my $i(0..$nquestions-1) {
    print $quiz[$i]{'q'}."\n";
    print $quiz[$i]{'a'}."\n";
}
[download]

tie @array, 'Tie::File', $fname or die 'Couldn\'t open file: '.$!;
$array[1] = 'blah';        # line 1 ine the file is now 'blah'
print $array[3];           # display line 3 of the file

# do something
untie @array;            # all finished
[download]

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);