Array stores only the last value

[sandy1028]

The array stores only last value

#!/usr/bin/perl -w
use strict;
use warnings;

my @data_list = (
    {key => 'correct', value => 'Article_text1'},
    {key => 'correct', value => 'Article_text2'},
    {key => 'date', value => '2009-01-01'},
    {key => 'date', value => '2009-01-02'}
);


my @correct;
my @date;
for my $data_pair (@data_list) {
print "Value:$data_pair->{value}:Key:$data_pair->{key}\n";

if($data_pair->{key} eq 'correct'){
 @correct = $data_pair->{value};
}


if($data_pair->{key} eq 'date'){

 @date = $data_pair->{value};
}


}
print "The array is @correct\n";
print "The array is @date\n";

How to store all the values into array.

[KevinR]

You are using the assignment operator "=" so each time you assign a value to the array you overwrite any values it had previously so you end up with whatever is the last value you assigned to the array using "=". What you want to do is replace "=" with push():

if($data_pair->{key} eq 'correct'){
 push @correct, $data_pair->{value};
}


if($data_pair->{key} eq 'date'){

 push @date, $data_pair->{value};
}