#!/afs/athena/contrib/perl5/perl -w
# -*- cperl -*-
# merge multiple active files into one; earlier entries supersede later.

use strict;

my %active;

while (<>) {
  chomp;
  my ($group, $data) = split /\s+/, $_, 2;
  defined $data or $data = '0 0 garbage';

  $active{$group} = $data unless exists $active{$group};
}

foreach my $grp (sort keys %active) {
  print "$grp $active{$grp}\n";
}