#!/usr/bin/env perl use strict; use warnings; use Data::Dump; # An array of files my @filesTxt = ('abc1','abc2'); my %hash; $hash{$_} = [ glob("$_*") ] for @filesTxt; dd %hash;