Select Code to Download

use strict;
use warnings;
...
        $p = $p->{'next'};
    }
}

sub display1 {
    my $p = $_[0];
...
        print $p->{'value'}, ' ';
    }
}