$ perl -Mstrict -Mwarnings -le '
    my @file_data = (
        "12:10 a  america",
        "12:11 b  bombay",
        "12:12 c  calcutta",
        "12:13 a  australia",
        "2:30   b  bhutan",
        "3:40  n    neterland"
    );

    my %name_data;

    for (@file_data) {
        my ($time, $name, $loc) = split;
        push @{$name_data{$name}{time}} => $time;
        push @{$name_data{$name}{loc}} => $loc;
    }

    for my $name (sort keys %name_data) {
        print "$name: @{$name_data{$name}{time}} : @{$name_data{$name}{loc}}";
    }
'
a: 12:10 12:13 : america australia
b: 12:11 2:30 : bombay bhutan
c: 12:12 : calcutta
n: 3:40 : neterland