for my $file(@$folder) { my $time = (stat($file))[9]; my $mod_time = strftime('%M', localtime($time)); if ($mod_time > '30') { unlink glob "$folder/*.sql"; } }