use warnings;
use strict;
use Data::Dumper;

my ($date_ref)    = [0..3];
my ($F_SCORE_ref) = [5..7];
my (@date, @F_SCORE) =  (@$date_ref, @$F_SCORE_ref);
print Dumper(\@date);
print Dumper(\@F_SCORE);

__END__

$VAR1 = [
          0,
          1,
          2,
          3,
          5,
          6,
          7
        ];
$VAR1 = [];