my $TIMESTAMP;
...
for (@dates) {
     $TIMESTAMP = $_->[0]->strftime("%Y-%m-%d %R");
}