foreach (@pwds) {
        $i++;
        
        next unless $_ =~ m/$grep/;
        $_ =~ m/(.*?) - (.*?) \((.*?)\)/;

        print "Delete '$1'? [y/n] ";
        chop(my $command = <STDIN>);
        next unless $command eq 'y';

        splice(@pwds, $i, 1);
    }