Hmm or get a date for me for Friday night? ,
I Try to run this and it seems to loop over the print "Ouchie\n"; line nonstop. =)

open (PHONEBOOK, "/data/phone");
open (PICKUPLINES, "/data/lines");
@lines = <PICKUPLINES>;
while (<PHONEBOOK>) {
  my($firstname, $lastname, $number) = split /:/;
  print "Whoot!!!\n" if AskOnDate($firstname, $lastname, $number);
}
close PHONEBOOK;
close PICKUPLINES;

sub AskOnDate {
  my($first, $last, $num) = @_;
  foreach my $try (@lines) {
     print "Hey there $first, $try";
      if (Flirt::Getresponce eq "Slap") {
          print "Ouchie!\n";
      } else {
       return "$first $last";
      }
  }
}
[download]

-Waswas