Select Code to Download

  use autobox;
  my @nums    = 1->to(10);
  my @reverse = 10->to(1);

  package SCALAR;
                                                                      
+                                                                     
+                 
  sub to {
...
      : ($from .. $to);
  }
  1;

  my @data = (
      'test12-05-2003this',
      'test11-05-2003this',
...
      my ($month,$day,$year) = shift =~ /(\d+)-(\d+)-(\d+)/;
      return "$year$month$day";
  }

  package ARRAY;
                                                                      
+                                                                     
+                 
  sub grep    { [eval "grep  {$_[1]}  \@{\$_[0]}"] }
...
  # reverse is not used in this example
  sub reverse { [reverse @{$_[0]} ] }
  1;