Input file for this code: test_data #!/usr/bin/perl # Takes a three-column, tab-delimited file and creates two hashes. # The keys for both hashes will be the items in the first column, # and the values will be the second and third column ############################################################### use warnings; use strict;   my $infile = shift @ARGV; my %institute;… (read more)

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 #!/usr/bin/perl #Perl_3-5.pl #finds occurrences of Nobody and somebody within text using index   use strict; use warnings;   my $nobody_infile = ‘perl_III_nobody.txt’; my $nobody_outfile… (read more)