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

package Model;
my $data = { fruits=>'apples',vegies=>'carrots'};
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(qw(fruits vegies)) {
    my $food = Model::get_food($foodtype);
    View::show_food($foodtype,$food);
}
__END__