#!/usr/bin/perl -w

use strict;
use Data::Dumper;

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