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