Select Code to Download

use strict;
use Data::Dumper;
...
my @extra_date = ('2011-03-01','2011-02-28','2011-02-27');
unshift(@{$form->{days}}, @extra_date);
print Dumper($form->{days});

$VAR1 = [
          '2011-03-01',
...
          '2011-02-21',
          '2011-02-20'
        ];