help regarding reading a file

[koti688]

I have a following script like

open(TEST,"<$sigDataFile") || die("This file will not open!");
    my $sigData = <TEST>;
    my @records = ();
    @records = <TEST>;
    close(TEST);
    my @keys;
    my @values;

    foreach my $rec(@records) {
    my ($key,$value)=split(/\=/,$rec);
    push @keys,$key;
    print @keys;
    push @values,$value;
   print @ values
    }

And my sigData.txt contains 4 records lets say like below.

1=2
2=3
3=4
4=5


when i executed the script , the values in the very first line are missing while printing key and values

[Gangabass]

Of course! You are reading the very first line on this line:

my $sigData = <TEST>;

So you need to remove it.

[koti688]

Hmm , my mistake , i was not looking properly at that.Thanks it worked.

[lakshmananindia]

You are reading the first line by

my $sigData = <TEST>;

You also didn't use the $sigData anywhere. What is is the purpose of $sigData? If you don't need then remove it, else specify the use of $sigData

[Gangabass]

Also don't forget to

chomp @records;