Select Code to Download

my $thing_to_find = 'needle';
my @haystack = ('needle', 'hay', 'more hay', 'yet more hay');
my $needle_count = scalar(grep { /^$thing_to_find$/ } @haystack);

sub getAnswer {
  my $ans;
...
  chomp($ans);
  return $ans;
}

sub pad {
  my ($str, $padSize, $padChar, $dir) = @_;
...
  }
  return $str;
}