$, = ', ';
my @files;
print ((-e $data)? $data : ((@files = glob $data) && ($data ne $files[0]))? @files : ()) if $data;