my @animals = ("frog", "toad", "snake", "grasshopper", "bird");

print join (' ', sort @animals), "\n";

# or

print qq{@{[ sort @animals ]}}, "\n";

# etc...