Select Code to Download

my @numbers = (0, 0.5, 1, 1.5, 2, 2.5);

...

my @basket_1 = grep defined, @basket;
print "The number of *defined* elements in \@basket is ", scalar(@bask
+et_1), "\n";

my @numbers = (0, 0.5, 1, 1.5, 2, 2.5);

...
    push @basket_1, $_ if defined;
}
print "The number of *defined* elements in \@basket is ", scalar(@bask
+et_1), "\n";

my @numbers = 1..10;
my @times_ten = map { $_ * 10 } @numbers;
print join(", ", @times_ten), "\n";