my %data;
( $data{ $_}) =  /^\d+\s+(\d+)/ while <DATA>;

print for sort { $data{ $a} cmp $data{ $b} } keys %data;