Select Code to Download

#!/usr/bin/perl
use warnings;
...
@test = (qw/001 012 010 100/);
@test = sort @test;
print "@test\n"; #prints "001 010 012 100"