>perl -wMstrict -le
"my %VeCog = (
   Operations => {
     A => {
       Value => '1',
       Desc  => 'Minmess',
       },
     B => {
       Value => '10',
       },
     C => {
       Value => '100',
       },
     D => {
       Value => '1000',
       },
     },
   );
 my $tmp_hashref = $VeCog{Operations};
 for my $key (sort keys %$tmp_hashref) {
   print qq{$key:$tmp_hashref->{$key}->{Value}};
   }
"
A:1
B:10
C:100
D:1000