print int rand $x;
####
return if substr($x, 0, 2) eq substr($y, 0, 2); # Second pair not needed.
##
##
my $first = first { $x > 0 } @array; # List::Util
##
##
is_deeply $response->{content}, bag(1 .. 10); # Test::Deep
##
##
$object->frobnicate;
##
##
use Exporter qw{ import }; # sub name
my $from_roman = {qw{ I 1 II 2 III 3 IV 4 V 5 }};
my $primes = [qw[ 2 3 5 7 11 13 17 19 ]];
##
##
while (my $item = $iter->next) {
##
##
chomp( my @lines = <> );
##
##
my $first = $array[0];
my $middle = $array[ $#array / 2 ];
##
##
my $arr = [1, 2, 3];
my @directions = qw( left right );
my @items = @{ $ref{items} };
##
##
if ($x > 0) {
say 'Positive';
} elsif ($x < 0) {
say 'Negative';
} else {
say 'Zero';
}
##
##
my @planets = qw( Mercury Venus Earth Mars
Jupiter Saturn Uranus Neptune );
##
##
while ($x = $iter->next) {
next if $x > $threshold;
$x -= $correction;
}
##
##
return if $x > $threshold;
return if $err || ! $success;
return [] if $not_found;
my $result = count($x);
##
##
my @normalised = map lc, @words;
##
##
my %pairs = map { $_ => value($_) } @labels;
##
##
sub new {
my ($class, $name) = @_;
return bless { name => $name }, $class
}
##
##
__PACKAGE__
##
##
sub second { $_[0][1] }