use strict;
use warnings;

my $p = 0;
$p = { 'value' => 5, 'next' => $p };
$p = { 'value' => 4, 'next' => $p };
$p = { 'value' => 3, 'next' => $p };
$p = { 'value' => 2, 'next' => $p };
$p = { 'value' => 1, 'next' => $p };

display1($p);
display2($p);

sub display1 {
    my $p = $_[0];
    return if !$p;
    print $p->{'value'}, ' ';
    display1($p->{'next'});
}

sub display2 {
    my $p = $_[0];
    while ($p) {
        print $p->{'value'}, ' ';
        $p = $p->{'next'};
    }
}