$a{$_}=@a-$b++.$/for sort{$a-$b}@a=<>;print@a{@a}