#!/usr/local/bin/perl

print "hello\n";

open(FILE1, "<file1.txt") or die "cannot open: $!\n";

open(OUTFO1, ">outfile3.txt") or die "cannot open: $!\n";

use strict;
use warnings;

my @data1 = <FILE1>;
print "hello\n";
print scalar(@data1);

my @data2 = <FILE2>;
print "hello\n";

my @ra = map{(split)[1]}split/\t/, @data1;
print "hello\n";

print scalar(@ra);  #ERROR: LENGTH OF @ra SHOWING 0
print OUTFO1 "@ra"; #ERROR: OUTPUT FILE IS CREATED BUT IS EMPTY