Select Code to Download

$c = ['c', undef];
$b = ['b', undef];
...

$a->[1] = $b;
$b->[1] = $c;

my $current = $a;

...
    ...
    $current = $current->{1];
}