my @pids = ...;

...

kill_processes(\@pids);

...

sub kill_processes
{
    my $pids = shift;

    for my $pid (@$pids)
    {
        print "Kill process $pid? ([y]es, [n]o, [q]uit)?\n";
        my $ans = <>;

        last if     $ans =~ /^Q/i;
        next unless $ans =~ /^Y/i;

       `kill $pid`;
        print "Process $pid killed\n";
    }
}