sub pp {
    map {
        my $new = lc $_;
        ($new eq $_ or -e $new)
            ? $_
            : rename($_, $new) ? $new : $_;
    } @_;
}