#! /usr/bin/perl -w

$, = ', ';
my @files = glob('*.txt');
print @files if -e $files[0];