#!/perl/bin/perl.exe -w use strict; while () { Dynamic SortRoutine here } __DATA__ 0x130005d 1.253.54.1 11 0x130009c 1.253.54.2 12 0x130005d 1.253.54.1 14 0x130005d 1.253.54.1 11 0x130005d 1.253.54.1 10 0x130009c 1.253.54.2 12 0x130009c 1.253.54.2 14 #### 0x130009c = 12, 14 0x130005d = 10, 11