This is my first perl poetry. A bit predictable, actually.

our $love;
for($me==@everything)
{
if($you != love("me"){
my $soul = die;
}
}
[download]

Here's the updated version, that shouldn't have errors (thanks to gothic_mallard)

our $love;
for $me (@everything) {
  if ($you != $love->{$me}) {
    die($me->{soul});
  }
}
[download]