for (@file_name) {
    chomp;
    my $cmd = "gpg --recipient $gpg_key -q --yes -e $directory/$_";
    my $rc = system($cmd);
}