#!/usr/bin/perl
my %colleague=   ("quality"     =>      "perl skill",
                "defect"       =>      "she is otaku",
                "birthday"     =>      "22/2");
$mila=\%colleague;
$mila=my $friend unless $mila->{"defect"} =~ /is otaku/;
$today=$day."/".++$month if ($day, $month)=(localtime time)[3,4];
$mila="will be my friend" while $mila->{"birthday"} eq $today;
print $mila." just today\n"

##</code><code>##

will be my friend just today