my %counter;

$counter{$_}++ while (<DATA>);

print sort {$counter{$b} <=> $counter{$a}} keys %counter;  
  
__DATA__
1    info
1    info
1    info
2    info
3    info
3    info
4    info
4    info
4    info
4    info