Select Code to Download

 
my @sorted_numbers = sort {$a <=> $b} @numbers

#!/usr/bin/perl

...

my @tuples = tuples[2] => (@sorted_numbers);
print Dumper(@tuples);