Select Code to Download

# We already have a filehandle open for reading. Read
# file line by line, putting data into a hash table.
...
    next unless /^(average\d+):\s+(\d+\.\d+)$/;
    push @{$averages{$1}}, $2;
}

print $averages{average1}->[0], "\n";
print $averages{average2}->[1], "\n";

3.2
5.0