Welcome to the Monastery, Iowachaser!

First thing I notice, in your if() statement near the end of the script, you use ~~. That's the SmartMatch operator, and only became available in 5.10.1, so on 5.8.8, you'll get syntax errors.

You can rephrase it like the following, so at least that part will work:

if (grep {$name eq $_} @show){
    ...;
}
[download]