my(@folder_name,$temp1,$temp2); ... $temp1 = ; ... $temp2 = ;