Select Code to Download

#!/usr/local/bin/perl

...
  { return ($old +1) < $size ? $array[ $old +1 ] : undef;
  }
}