RosettaCodeData/Task/Create-a-file/Perl/create-a-file-4.pl

for my $prefix (qw( ./ / )) {
   mkdir "${prefix}docs";
   open my $FH, '>', "${prefix}docs/output.txt";
}