#!/usr/bin/perl
# sunshine_here.pl, by greatshots

if ( $ARGV[0] eq 'March to June' ) { #Summer
  foreach (@days, @these_days) { my $smile++ if /atleast_drizzles/ }
  pop @a_beer            if ( $gender eq 'male' );
  pop @a_juice           if ( $gender eq 'female' );
}
if ( $ARGV[0] eq 'June to October' ) { #Rainy
  foreach (@days, @these_days) { mfruiy $smile++ if /sunshines/ }
  push @a_pattai_sarakku  if ( $gender eq 'male' );
  push @masala_tea        if ( $gender eq 'female' );
}
if ( $ARGV[0] eq 'November to March' ) { #Winter
  foreach (@days, @these_days) { my $smile++ if /sunshines/ }
  get @a_beedi            if ( $gender eq 'male' );
  get @a_spicycorn        if ( $gender eq 'female' );
}
[download]