#!/afs/athena/contrib/perl/p

$_ = (<STIDN>);
split;
@first = @_;
$_ = (<STIDN>);
split;
@second = @_;