use utf8;

package チンポコ;
sub name { return ''; }

package おざなりさんのチンポコ;
@ISA = ('チンポコ');
sub new { bless({}); }
sub name { return 'おざなりさん'; }

package おまんこ;
sub name { return ''; }
sub insert {
    my $私 = shift;
    my $チンポコ = shift;
    return $私->name(). "のおまんこにっ！ ". $チンポコ->name(). "のおちんこイイッ！\n";
}

package ピクのおまんこ;
@ISA = ('おまんこ');
sub new { bless({}); }
sub name { return 'ピク'; }

package JINのおまんこ;
@ISA = ('おまんこ');
sub new { bless({}); }
sub name { return 'JIN'; }

package キチ乙のおまんこ;
@ISA = ('おまんこ');
sub new { bless({}); }
sub name { return 'キチ乙'; }

package main;
use strict;
use encoding 'cp932';
my $チンポコ = おざなりさんのチンポコ->new();
my @おまんこたち = ();
$おまんこたち[0] = ピクのおまんこ->new();
$おまんこたち[1] = JINのおまんこ->new();
$おまんこたち[2] = キチ乙のおまんこ->new();
foreach my $おまんこ (@おまんこたち) {
    print $おまんこ->insert($チンポコ);
}