sub compare {
    my ($elem1, $elem2) = @_;

    my @elem1Arr = split /;/, $elem1;
    my @elem2Arr = split /;/, $elem2;

    for (0 .. 1) {
        return 0 if $elem1Arr[$_] ne $elem2Arr[$_];
    }

    my @time1Arr = split / /, $elem1Arr[2];
    my @time2Arr = split / /, $elem2Arr[2];

    return 0 if $time1Arr[1] eq $time2Arr[1];

    return 1;
}
[download]

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.