my $Info="/home/Info";
 
print " Enter the GRADE\n";
my $grd = <STDIN>;
#Don't forget to get rid of the newline character from the input
chomp $GRADE;

print " Enter the SUBJECT\n";
my $subj = <STDIN>;
#Don't forget to get rid of the newline character from the input
chomp $subj;

print " Enter the Student Name\n";
my $std = <STDIN>;
#Don't forget to get rid of the newline character from the input
chomp $std;


&update($grd, $subj, $std);



sub update {
my $grade = $_[0];
my $subject = $_[1];
my $name = $_[2];
 
#Open the file and read it in:
open(FILE, "$Info") || die "couldn't open $Info for reading";
#Each line is stored in an array
my @in=<FILE>;
close(FILE);


#Now open the same file again for output
open (FILE, ">$Info") ||die "couldn't open $Info for writing";

#Now print out everything and update:
for (@in)
{
        print FILE ;
        if /^$grade/ # and here where I lose it ,, what to do to match the rest :(
}
close(FILE);