Select Code to Download

$data=~s/2000/2009/g;

my $new_array_ref;

...

    push @$new_array_ref, [$date, $user1, $user2, ... ];
}