#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my @files = glob('*.dat');
print Dumper(\@files);

##</code><code>##

$VAR1 = [
          'lc.dat'
        ];

##</code><code>##

$VAR1 = [
          'lc.dat',
          'uc.DAT'
        ];