Thomas 60 10 20 85
Samuel 35 90 80 65
Adam   100 90 85 52

##</code><code>##

Adam 79.35
Samuel 69
Thomas 45

##</code><code>##

use strict;
use Fcntl ':flock';
my $file = "inputdata.txt";
open(INFILE, $file) or die "File Not Found: $!";
flock(INFILE, LOCK_EX);
my @students;
while (<INFILE>) {
   push @students, [split / /, $_];

my %hash;
my @keys = keys(%hash);
@keys = sort(@keys);
foreach my $key(@keys){
print $hash{$key} = $students[0]*0.2 + $students[1]*0.25 + $students[2]*0.25 + $students[3]*0.3, "\n";
}
}
close(INFILE);