use strict;
use warnings;
use List::Util qw(first);

my %data = (
     date => ['2009-01-01', '2009-01-02', ''],
     correct => ['Article_text1', 'Article_text2'],
);

print @{$data{correct}};
print @{$data{date}};


##</code><code>##

Article_text1
Article_text2
2009-01-01
2009-01-02

##</code><code>##

2009-01-01
Article_text2
2009-01-02