awk - reformating rows into columns

Shell Programming and Scripting
1

looking to do the following...

What the data looks like

server1 02/01/2008 groups 10
server1 03/01/2008 groups 15
server1 04/01/2008 groups 20
server2 02/01/2008 users 50
server2 03/01/2008 users 75
server2 04/01/2008 users 100
server2 04/01/2008 users 125

What I would like the data to look like

server1  groups 15 20
seerver2 users  100 125

Thanks,
JD

2

perl:

open(FH,"<filename");
while(<FH>){
	@arr=split(" ",$_);
	$t=sprintf("%s %s",$arr[0],$arr[2]);
	$hash{$t}=sprintf("%s %s",$hash{$t},$arr[3]);
}
close(FH);
for $key (keys %hash){
	@temp=split(" ",$hash{$key});
	print $key," ",$temp[$#temp-1]," ",$temp[$#temp],"\n";
}