xyz(1 .. 5);

sub xyz {
    my $a = shift;

    sort { $a <=> $b } @_;

    print "$a\n";
}