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