Select Code to Download

  print int rand $x;

  return if substr($x, 0, 2) eq substr($y, 0, 2); # Second pair not ne
+eded.

  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) {
...
  } 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] }