<>;@b=sort{$a-$b}@a=glob<>;@b[-2,-1]=@b[-1,-2]if$b[-1]-$a[-1];print"@b"