Select Code to Download

# need to chomp the file input before testing
$found = 1 if /^$student\t$studentAge$/;

my $text = "$student\t $studentAge\n";
my $found = 0;
while (<$fh>) {
   $found = 1 if $_ eq $text;
}

# Read the file into a hash
#
...
       print $fh, "$output\n";
    }
}