#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;

my @times = (1000 => 'hello',,
             1000 => 'world',
             1000 => 'foo',
             1010 => 'bar',
             1010 => 'baz',
             1010 => ['hello world', 'hallo welt'],
         );

my %data;

while(@times) {
    my ($key, $val) = (shift @times, shift @times);
    push @{$data{$key}}, $val;
}

print Dumper(\%data);