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

     $data{$a}{$b} = [ @stuff ];
}