Help for this page

Select Code to Download

Select or download this

sub mysort (&@)
{
...
}

mysort { $a <=> $b } qw(1 3 2);