Select Code to Download

my %allowed;
$allowed{'ls'} = '/bin/ls';
$allowed{'grep'} = '/bin/grep';
$allowed{'gzip'} = '/bin/gzip';
. . .

my $good_prog = $allowed{$program1};
system($good_prog) if($good_prog != undef);

use File::Find;
my %allowed;
...
{
     $allowed{$_} = $File::Find::name;
}