#!/usr/bin/perl -w

use strict;

open INPUT, "< $ARGV[0]"
  or die "Could not open file $ARGV[0]: $!";

my @sorted =
  map  { $_->[0]                  }
  sort { $a->[1] <=> $b->[1]      }
  map  { [ $_, (split /\s+/)[3] ] }
  <INPUT>;

close INPUT;

print "$_\n" for @sorted;

__END__