Select Code to Download

  my @alist = (
   [1 => 'cat'],
...
    for (@$alist) { ++$posn if $$_[0] < $car }
    splice @$alist, $posn, 0, [$car, $cdr];
  }

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/