Utilitarian:

++ for removing the loop. I had a thought about your randombase routine, though. I came up with:

sub randombase {
    # Prevent us from returning the same symbol
    my @list = grep { $_ ne $_[0] } @symbols;

    return $list[rand(@list)];
}
[download]

...roboticus