my $current = $a; while (defined $current) { my $value = $current->[0]; ... $current = $current->{1]; }