将带空格的字符串推入数组会导致Perl中有两个数组元素

Pra*_*Pal -1 arrays perl

我试图将一个字符串元素推入Perl中的数组.被推送的字符串包含空格.这导致数组中的两个元素 - 按空格分割.

my @filenames;
$filename = "Test Test.test";
push(@filenames, $filename);

while (<@filenames>)
{
        print  "Here: $_\n";
}
Run Code Online (Sandbox Code Playgroud)

这给出了输出

Here: Test

Here: Test.test
Run Code Online (Sandbox Code Playgroud)

虽然我期待输出为:

enter code here这里:Test Test.test

如何实现所需的输出?

谢谢,Pranav

Jim*_*son 5

my @filenames;
$filename = "Test Test.test";
push(@filenames, $filename);

for (@filenames)
{
    print  "Here: $_\n";
}
Run Code Online (Sandbox Code Playgroud)

这产生了预期的输出.不知道你为什么这么做<@filenames>