proc processLine {arrayName line} { upvar $arrayName count set cmd [lindex $line 4] set cmd [lindex [split $cmd {[}] 0] incr count($cmd) } set if [open "messages.1" r] set data [read $if] close $if foreach line [split $data \n] { processLine count $line } parray count