# We already have a filehandle open for reading. Read
# file line by line, putting data into a hash table.
#
our %averages = ();
while(<IN>)
{
    # Pick out the "average" lines with a regular
    # expression using () round brackets to remember
    # the "average1 or 2" (in $1) and the value ($2).
    #
    next unless /^(average\d+):\s+(\d+\.\d+)$/;
    push @{$averages{$1}}, $2;
}

##</code><code>##

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

##</code><code>##

3.2
5.0