Anyone for Perl programming??

Question

hi, can you help me about the use of hash function to calculate this :
@rawgrades = (1stgrade*0.25) + (2ndgrade*0.25) + (3rdgrade*0.25) + (4thgrade*0.3)
for the following code?
it reads the data normally into an array structure, but I tried to hash it, either it gave single value per key or another type of errors. How can I add this "hash" function to apply the above formula to the values per key?
#perl code
#!/usr/local/bin/perl -w
use Fcntl ':flock';
$file = "data.txt";
open(INFILE, $file) or die "File Not Found";
flock(INFILE, LOCK_EX);
while (<INFILE>) {
@grades = (split(/ /, $_));
push @students, [@grades];
%keys = @students;
flock(INFILE, LOCK_UN);
for($x = 0; $x <= 15; $x++){
for($y = 0; $y <= 4; $y++){
print $students[$x][$y], " " ;
print "\n";
close(INFILE);
my data
Frank 89 90 76 88
Chris 70 95 90 100
Raji 60 80 89 90
Moe 90 90 67 56
Pam 100 50 85 50
Denis 50 10 78 34
Sam 23 90 80 75
Rick 100 67 89 88
Sal 98 90 80 75
Adam 90 90 67 56
Jim 89 89 89 10
Rich 99 67 89 67
Dan 78 100 87 67
Sally 39 80 90 98
Hugh 78 85 100 100
Alan 99 15 54 87
thank you so much!

Answer 1

Thanks for the comments and help, I thought the code tag would work only for java code, anyway now I`m putting the code between those tags:
I wrote the code using subs, the 1st one did it ok , it read the file but the 2nd one my logic is a bit off, I guess..Since I`m new to this language, I`m trying to use analogies between other languages, anyway this is the logic:
open file
read file
for each line
store the name as a key, calculate the grade as the value of a hash
formula:
(1st grade * 20%) + (2nd grade * 25%) + (3rd Grade * 25%) + (4th Grade * 30%)
print out to file
sort keys in hash
for each key
calculate the curve
formula:
( sqrt ( orig_grade ) * 10 ) - orig_grade, This should then be added to the grades, to get the new final grade.
if name begins with 'S' subtract 2 from curve
if name begins with 'R' and ends with 'k' add 3
write out key, grade, and curve grade
close files
Example input file:
Theadore 50 10 78 34
Simon 23 90 80 75
Alvin 90 90 67 56
Example output file
Alvin 74.05 86.05
Simon 69.6 81.43
Theadore 42.2 64.96
The below code that I wrote is with my insructor`s comments, I think he`s mad at me.. I wish it was in Java
#!/usr/local/bin/perl -w
# Name:       curves.pl                          *
# Authors:    edeita2*
# Medium: Perl                                   *
# Created: 3/5/04                                *
# Purpose: To read the file containg the students*
#          names and their grades.Calculate the  *
#          curves for each student and treating  *
#          some of them in different manner as   *
#          far as calculation goes, those whose  *
#          names match the given characters will *
#          get the deserved treatment            *
use strict;
use Fcntl  ':flock';
#Variables                                       *
my $dataFile = "";
my $rawgrade = "";
#********************Main*************************
if($#ARGV == 0) {
  $dataFile = fileReader($ARGV[0]);   #sub1
  $rawgrade = calcgrades($dataFile);  #sub2
  # You weren't passing '$rawgrade' down, you need it
  # presumably...
  printList($dataFile, $rawgrade);    #sub3 
else {
  print "Usage: -- ./curves.pl filename\n";
#*********************Subroutines*****************
sub fileReader {
  my $dataFile = "";
  my ($file) = @_;
  open(INFILE, $file) or die "File Not Found";
  flock(INFILE, LOCK_EX);
  while (<INFILE>) {
    $dataFile = $dataFile . $_;
  flock(INFILE, LOCK_UN);
  close(INFILE);
  return $dataFile;
sub calcgrades {
  # you are not actually accepting the value you are
  # passing down, you can't do anything with it
  # if it is not here...
  my $dataFile = "";
  my ($datafile) = @_;
  my @rawgrades;
  # I don't know why this is here...
  # my $dataFile = shift;
  my %students;
  for( split/\n/,$dataFile){
    my $s;
    ($s,@rawgrades) = split;
    $students{$s}=[@rawgrades];
  my @keys = keys(%students);
  foreach my $key ( sort @keys ){
    @rawgrades = @{$students{$key}};
    print "@rawgrades\n";
    my $rawgrade = $rawgrades[0]*0.2 + $rawgrades[1]*0.25 + $rawgrades[2]*0.25 +$rawgrades[3]*0.3;
    print "$key\t$rawgrade"\n\n";
  # you are returning $rawgrade, which in this case would be
  # the very last thing you calculate, I don't
  # think that is what you want to do?  If anything you should
  # be returning an array or something....
  return $rawgrade;
sub printList {
   my($dataFile, $rawgrade) = @_;
   print"\n---------------------\n"; 
   print"     Student Data\n";
   print"\n----------------------\n"; 
   print "$dataFile\n\n";