#!/usr/local/bin/perl
use strict;
use warnings;
my $a = [1, 2, 5, 7, 4];
print sort { $a <=> $b } @$a;