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

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use List::Tuples qw(:all);
use Data::Dumper::Concise;

my @numbers = qw(10 1 12 5 20 7);
my @sorted_numbers = sort { $a <=> $b } @numbers;

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