System Functions Perl

use Class::Struct;
struct( produce => {
        vegetable => item,
        fruit => item,
});