Another Valantine's Day Perl Poem

[lvanhout]

sub let_me_count_the_ways 
{ my @how_I_luv_thee = @_ ;
  my @heart = (); #my heart is empty
  foreach my $way (@how_I_luv_thee )
  { push(@heart, sweet_nothings($way);
  }
  return(@heart);
}