Select Code to Download

$ cat name1.txt
0. Amber BYU
1. Kim BGSU
...
1. B F K
2. A I J
$

#!/usr/bin/perl -w
use strict;
...
say "returned was \n $$return";
my $return2 = format_texts( $rvars, $return );
__END__

sub pop_texts {
  use strict;
...
  my $reftext = \$text1;
  return $reftext;
}

$ perl hears1.pl
enter basename for file
...

Kim Wshington was harmed by A I J