#... open (FILE, "hi.dat") || die "cannot open file hi.dat\n"; while () { chomp; ($hi_score,$name) = split(/:/); } close (FILE) || die "cannot close file hi.dat\n"; #...