Średnie

[mata]

Witam Jestem początkujący w Perlu, proszę więc o wyrozumiałość. Mam taki problem: Dostałem zadanie, by napisać program, który wczytuje liczbę osób, następnie wczytuje dane każdej osoby, tj Imię, nazwisko i średnią ocen (każde oddzielone spacją). Na wyjściu ma się znaleźć średnia ocen tych wszystkich osób, np. dla danych
2
Michał Gow 3
Maciej Hel 4.24
ma się pojawić na wyjściu
3.62

Oto mój pomysł, proszę o weryfikację:

#!/usr/local/bin/perl
$t=<STDIN>;
chop($t);  
$z=0;
for($i = 0; $i < $t; $i++)
{
   $imie=<STDIN>;
   $nazw=<STDIN>;
   $srednia=<STDIN>;
   $z+=$srednia;
   chop($srednia);
}
$z/=$t;
print "$z\n";