#!/usr/bin/perl -w
use strict;
use Quantum::Superpositions;

my @characters = (
    [ "h" ],
    [ "e" ],
    [ "l", "p", "i" ],
    [ "l" ],
    [ "o" ],
);

# build up our Quantum Mechanics Automaton
my @states = map { any(@$_) } @characters;

# And print out all possibilities
my $string = "";
$string .= $_ foreach @states;
print join(",",eigenstates($string));