#!/usr/bin/perl
use strict;
use warnings;

my $filename = 'a@b';

open my $out, '>', $filename or die $!;
print {$out} 'Contents';
close $out or die $!;

opendir my $dir, '.' or die $!;
my @files = grep /@/, readdir $dir;

die 'Not found' unless grep $filename eq $_, @files;
print "Found\n";

unlink $filename;
[download]

I had to create a new script, as yours isn't runnable as is. See SSCCE for details - what's $Nav_Line_QC ? Do you know that $array[0] and @array[0] aren't the same thing? What line is the line 60? The script seems to only have 26 lines.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]