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