my $foo=[sort @bar]; return $foo;