I want only the first 2 words from every line of a particular file and store them into a array.But every time I try to do it only the first 2 elements of 1st line are picked not every first 2 elements of every line.
I really dont know what is the problem with the code.plz advice

my code is:

#!usr/bin/perl -w
open(INFILE,"<c.txt") or die "cant open file:$!\n";
@dna=<INFILE>;
$dna=join('',@dna);
close INFILE;
@x= split(/\|/,$dna);
$stat= join(" ",@x[0..1]);
print"$stat";


a line from the file is:
ab|cd|aaaaaaaaaabbbbbbbbbbbbb|aaaaa
(this is just a example)

You need to process each line of the data separatly - you're slurping the whole lot into a list, joining it together, and just pulling the first two elements off the whole.    Here's a modified sample doing the sort of thing you want:

Code:

while(<DATA>) {        @parts = split(/\|/);        $ln = join(" ",@parts[0,1]);        print "$ln\n";        } __END__ first|second|third one|two|three|four 1|2|3|4|5|5 and so|on and|soforth

---