perl -le '@f=map/(\d+)$/,<*[0-9]>;@x[@f]=@f;for(1..$#x){$x[$_]||print}'