[
    $var1,
    undef,
    [
      undef,
      undef,
      { 'foo' => $var2 }
    ],
    {
      'bar' => $var3
    }
  ];

##</code><code>##

  my $unknown = [ undef, undef, $var ];

##</code><code>##

  my @structures = ( 
    [ qw/ 1 2 3 / ],
    [ qw/ this that other / ],
    [ qw/ un deux trois / ],
  );

##</code><code>##

  foreach my $structure (@structures) {
    bind($unknown, $structure);
    print $var->value;
  }

##</code><code>##

  my $struct = [
    'whaa!',
    undef,
    [undef, undef, { foo => 3}],
    { bar => 'baz'},
  ];
  my $path = "[2][2]{foo}";
  $var->bind( eval "\$struct->$path" );

##</code><code>##

  foreach my $path (find_logic_var($unknown_struct)) {
      push @paths => $path;
  }