如何读取目录中每个文件的内容并使用perl将其存储在新文件名中？

Question

我的查询：

如何从目录/ home / redmy / r中的每个文件中读取内容，并且每个文件内容应该使用perl一起存储在新文件名下？

我的代码：

#!/usr/local/bin/perl
opendir(d,"/home/redmy/r")||die "error";
my @list=readdir(d);
closedir(d);
foreach my $f(@list)
{
print "\$f=$f\n";
}

我的输出：

$f=.
$f=..
$f=c.txt
$f=welcome
$f=c1.txt

例外输出：

来自c.txt，c1.txt和welcome的内容应以新文件名一起存储。