perl -nle"next if $.==1; $n[$_]=$_ }{ defined and print for @n" nums >nums2 #### #!perl -l <>; $n[ $_ ]=$_ while <>; defined and print for @n; #### [16:53:01.85] C:\test>1045728 nums >nums2 [16:53:03.44] C:\test>