sub spells_init() { my ( $name, $output, $wildcards ) = @_; my $target; $persistdata{'spellsInitQueue'} = [ 'spellup', ] if (!(defined(@{$persistdata{'spellsInitQueue'}}))); if (@{$persistdata{'spellsInitQueue'}} > 1) { $target = shift @{$persistdata{'spellsInitQueue'}}; } elsif (@{$persistdata{'spellsInitQueue'}} == 0) { } }