foreach my $i (0..5) { 
     my $name = $one[$i]; 
     my $job = $two[$i]; 
     print "$name $job\n"; 
}

se warnings; 
use strict; 
 
my @one = ('lisa','sarah','erica','jackie','maggie','mary');  
my @two = ('teacher','student','doctor','lawyer','professor','reporter'); 
my $file="C:\\Temp\\testfile.txt";  
my $totalItems=$#one; 
 
open(FILEHANDLE, ">>", $file) or die "Cant Open file $file" ; 
 
for my $i (0..$totalItems) 
{ 
print (FILEHANDLE "$one[$i] $two[$i] \n"); 
} 
 
close(FILEHANDLE);

my @one = ('lisa','sarah','erica','jackie','maggie','mary'); 
my @two = ('teacher','student','doctor','lawyer','professor','reporter'); 
 
while ( (my $one = shift @one) and (my $two = shift @two) ) { 
    print "$one $two\n"; 
}