Select Code to Download

my @nums    = 1 .. 10;
my @results = evens(@nums);

sub evens {
  my (@nums) = @_;
  ...;
}

sub this_sub_returns_1 {
  return 1;
...
  1;
  2;
}

use strict;
use warnings;
...
my @nums_better = 1 .. 10;
square_better(@nums_better);
print "$_\n" for @nums_better;