#!/usr/bin/perl
use Modern::Perl;

my @arr = glob("*.*");

for my $line(@arr) {
    say $line;
}