foreach (@stuff)
{
     my ($a,$b,@stuff) = split (/:/);

     push (@{$data{$a}{$b}}, @stuff);
}