#!/usr/bin/perl

# Just Another Pricey Holiday
#
# My beloved's pricey holiday
# Pushing for expensive things always
# But I bought those gifts
# In double shifts
# So tonight I'll guarantee some play...
#
# -higle

my $beloveds_pricey_holiday = "Valentine's Day";

until ( $some_play )
{
  push @expensive_things, buy(qw{those gifts});
  
  $some_play = 1 if &whim_of_significant_other;
}

sub buy()
{
  push @shopping_cart, shift;
  push @shopping_cart, shift;
}
sub whim_of_significant_other
{
  if (rand > 0.9)
   {
   return 1;
   }
  else
   {
   return 0;
   }
}