#!/usr/bin/perl
use warnings;
use strict;

sub mysort (@)
{
   my @array = @_;
   return sort @array;
}   

my @abc = mysort 4,2,1,3;

print "@abc"; #prints 1 2 3 4