I'm a little amazed this works but it does. :) @nums = qw(55_20051202 56_20051203 57_20051204 101_20051205 59_20051206 10_20051207 61_20051208 62_20051208 63_20051208 64_20051209 65_20051209 66_20051210 67_20051211 68_20051212 69_20051213 70_20051214); print join "\n", (map {join "_", @{$_}} (sort {${$a}[0] <=> ${$b}[0]} map {[split /_/]} @nums ));
All in a one liner!!! ########### 10_20051207 55_20051202 56_20051203 57_20051204 59_20051206 61_20051208 62_20051208 63_20051208 64_20051209 65_20051209 66_20051210 67_20051211 68_20051212 69_20051213 70_20051214 101_20051205 -- REMEMBER THE WORLD TRADE CENTER ---=< WTC 911 >=-- "...ne cede malis" 00000100 _______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs