Help for this page

Select Code to Download

Select or download this

#!perl/bin/perl 
use strict; 
...
    my $head = $list1;
    $list1 = ["a" x 40,\$head];
}