sub lpcarray_to_array {
        my $lpc = shift;
        $lpc =~ s/\(\{/\[/g;
        $lpc =~ s/\}\)/\]/g;
        return eval $lpc;
}