map {
    print "$etcpw->{$_}\n";
} sort { [ split /:/, $etcpw->{$a} ]->[2] <=> [ split /:/,$etcpw->{$b} ]->[2] } keys %{$etcpw};