Select Code to Download

use List::Util qw( first );
my $pro = first { $user[0] eq $_ } @protected;
do_stuff_with( $pro ) if defined $pro;