if(/(^\[(\d+)\](\S+)\s+(\d+)/m) {
  $mylist{$2} = $3;
  $linenumber = $1;
}