print $HoH{'Student2'}{'final'} . "\n"; __END__ $ perl test.pl in.txt 0.033