for(sort keys %component)
    {
        print "$_,$component{$_}{type},$component{$_}{action}\n";
       }