sorry i have been offline since yesterday. ive tried multiple things, but here is my last failure.
for (<DAT>){
chomp;
($id,$name,$role,$wg,$auth,$lev,$app,$mode,@rest) = split(/\:/, $_);
$out_apps = $apps{"apps"}{$app};
}
for (keys %out_apps){
print "$_";
}