Perl

Print all array contents

Each cell in a separate line

print join("\n",@f_r2),"\n";

List files in directory matching pattern 

One way:

my $wd            = "/home/here";

my $pattern2match = "findme";

my @files         = <$wd/*$pattern2match*>;