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

my %data;
my $file = $ARGV[0] or die "Usage: $0 <input_file>";
open(my $fh, '<', $file) or die "Unable to open '$file' for reading: $!";

my $pos = tell $fh;
while (<$fh>) {
    my $size = (split /\t/)[2];
    $data{$size} = exists $data{$size}
              ? $data{$size} . ":$pos"
              : $pos;
    $pos = tell $fh;
}
for my $size (sort {$b <=> $a} keys %date) {
    for my $pos (split /:/, $data{$size}) {
        seek($fh, $pos, 0);
        my $line = <$fh>;
        print $line;
    }
}