#!/usr/bin/perl
use strict;
use warnings;

my %file = () ;

while(<>)
{
        chop;
        my( $file, $width, $height, $time )  = split(/:/);
        $file{$time} = [ $file, $width, $height ];
}

foreach ( sort keys %file )
{
        my $data = $file{$_};
        print join(":", ( @$data, $_ ) ) . "\n";
}