Select Code to Download

  my $array = Array::AsHash->new({array => \@array});

  while (my ($key, $value) = $array->each) {
    print "$key : $value\n";
  }

  while (my ($key, $value) = $array->each) {
    last if some_condition($key, $value);
  }

  my $count = 0;
  while ( my $line = get_line_no() ) { # Line 2
      print "Line $line\n";
...
  __END__
  Line 2
  Line 4

  package Array::AsHash;

  use warnings;
...
  }

  1;

  my @array = qw/key value key1 value1 key2 value2/;
  use Array::AsHash;
  $array = Array::AsHash->new( { array => \@array } );
...
  key : value
  key1 : value1
  key2 : value2