http://www.perlmonks.org?node_id=254829

I just started perl a week ago, so this is one of my first pieces of code. All comments are welcome.
#!usr/bin/perl #Written by gilbert for UEC. #http://www.uec.be -should be up soon...- #Mail gilbert_vilvoorde@hotmail.com for bugs, improvements, questions, + insults or loveletters. #I'm just a beginner so this is crappy code. use warnings; use strict; #Before I met you, I was like a $calar. my $lonely = "Gilbert"; #When we got together, we lived in our own @rray of love. my @love = ("Gilbert","lieselotte"); #When we have sex, it is like we become one. my $sex = join "=" , @love; #Now we are like a pair of data, safely surrounded by the hash of love +. my %marriage = ( gilbert => "lieselotte" ); print "$lonely\n"; print "(@love)\n"; print "$sex\n"; for (keys %marriage) { print "$_ loves $marriage{$_} forever.\n"; } while (1) { print "Let our love be as infinite as this loop.\n"; }