#!/usr/bin/perl
use strict;
use warnings;


my @files = qw(dump123.txt abc dump124.txt 123 xyz 12dumpa.txt);

foreach (@files)
{
    if ( $_ =~ m/^dump.*txt$/)
    {
        print $_."\n";
    }
}
<br>