readFile( 'Text1', \@array1, \@data1 );
readFile( 'Text1', \@array2, \@data2 );
compareTheseThings( \@array1, \@data1 , \@array2, \@data2 );

sub readFile {
   my( $filename, $arrayref, $dataref ) = @_;
   use autodie qw/ open close /;
   open my($fh), '<', $filename ;
   ...
   push @$arrayref, ...;
   push @$dataref, ...; 
   ...
   close $fh;
   return;
}