print and display values 1

[max1x]

I have not coded for while, so pardon the rustiness.

I have two sets of values being pulled from a DB.
1 cat1
2 cat1
3 cat2
4 cat3
5 cat3
6 cat1
7 cat1

What I need to do is key off of 2nd filed and associate all values fron field 1. The number of values when reach a pre-defined limit should stop and then start in a new line.

OUTPUT:
cat1 1 2
cat1 6 7
cat2 3
cat3 4 5

I've got all the other parts figured out and am stuck on how to make it display as show in the output.

 

[prex1]

for(...){
  push @{$set{$key}},$value;
}
for(sort keys%set){
  if(@{$set{$_}}>$limit){
    print"@{$set{$_}}[0..$limit-1]\n";
    print"@{$set{$_}}[$limit..$#{$set{$_}}]\n";
  }else{
    print"@{$set{$_}}\n";
  }
}

http://www.xcalcs.com

: Online engineering calculations

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads

 

[max1x]

Thanks prex1. Made a few tweaks and got it to work.