sub make_menu_items {
    my $items = shift;
    my @quoted;
    for my $item ( @{ $items } ) {
        push @quoted, "'$item'";
    }
    return \@quoted;
}