Help for this page

Select Code to Download

Select or download this

use strict;

my $list        = { head=>undef, tail=>undef };
...
    $list{tail}[0]= $newnode;
    $list{tail}= $newnode;
}