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] }