xyz(1 .. 5);

sub xyz {
    my $a = shift;

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

    print "$a\n";
}

##</code><code>##

xyz(1 .. 5);

sub xyz {
    my $a = shift;

    abc(@_);

    print "$a\n";
}

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