When my program calls this sub routine, no matter what i enter in for the variable $yn it never tests TRUE in the while loop

  $yn=<STDIN>; 
  chomp ($yn);
[download]

I also noticed you're not running use strict; or it would have complained about the lack of my $yn=<STDIN>;

I'm just saying...