Dear monks ,excuse me if my poem not like a real poem , sorry this is my first poem in perl. please suggest me to say better poem .

#!/usr/bin/perl
#use strict;
use World;


@worldGirls= World::ListGirls;
$me = new World::Geek(love=>%0,match=>undef);

foreach $girl (@worldGirls) {
   if ($me->{love} eq $girl->{love}) {
      $me->{match}=$girl;
      last;
   }
}

if ($me->{match}!=undef) {
     $me->kiss($me->{match});
}
[download]