Select Code to Download

#!/usr/bin/perl
use strict;
...
my @test = qw/1 2 3 4 a b 0 10 9 100/;

print sort {$sort->{$test}->($a,$b)} @test;