for my $line (@lines) {
  $line =~ /your regex/;
  if (exists $urecs{$2}) {
    $urecs{$2} .= "$1,$2,$3\n";
  } else {
    $urecs{$2} = "$1,$2,$3\n";
  }
}