my $platform_sym =shift @platforms;
my $platform_name=shift @platforms;
push @projects,sort {
($item{$b}{"priority"} <=> $item{$a}{"priority"})
or
(lc($item{$a}{"name"}) cmp lc($item{$b}{"name"}));
my $platform_sym =shift @platforms;
my $platform_name=shift @platforms;
push @projects,sort {
($item{$b}{"priority"} <=> $item{$a}{"priority"})
or
(lc($item{$a}{"name"}) cmp lc($item{$b}{"name"}));