for $line (@data) {
  push @dates, [ get_date($line), $line ];
}