use strict;
use Data::Dumper;
use warnings;
my @orig_values = (1,3,2);

# 1
my @values = arraynosort(Values=>\@orig_values);
print join(",",@values),"\n";

# 2
@values = sort arraynosort(Values=>\@orig_values);
print join(",",@values),"\n";

sub arraynosort {

    my %args = @_;
    print Dumper \%args;
    my @values = @{$args{Values}};
    return @values;

}