#!/usr/bin/perl -w
use strict;

package Model;
our $data = {
    fruits=>'apples',veggies=>'carrots'
    ,meat=>'bacon',grains=>'pita bread'
    };
sub get_food {  $data->{$_[0]} }

package View;
my $template = "I like %s, especially %s!\n";
sub show_food { printf $template, @_ }

package main; # Controller;
for my $foodtype(sort keys %{$Model::data}) {
    my $food = Model::get_food($foodtype);
    View::show_food($foodtype,$food);
}
__END__