my $filelock;
for my $filelock (@locks) {

#### To ####

my $filelock;
for $filelock (@locks) {