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

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