Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print "The array is @correct\n";
print "The array is @date\n";

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