@sorted_keys = map { $_->[0] }
               sort { $a->[1] <=> $b->[1] }
               map { $etcpw->{$_} =~ /:(\d+)/; [ $_, $1 ] }
               keys %{$etcpw};

print "$etcpw->{$_}\n"
   foreach @sorted_keys;

##</code><code>##

print "$etcpw->{$_->[0]}\n"
   foreach
      sort { $a->[1] <=> $b->[1] }
      map { $etcpw->{$_} =~ /:(\d+)/; [ $_, $1 ] }
      keys %{$etcpw};