for $line (@lines) {
  $key=xxx;
  $value=yyy;
  if defined($hash{key} {
    #add value to array
  } else {
    $hash{key}=\[$value]
  }
}