my(@folder_name,$temp1,$temp2);
...
@folder_name=<ONE>;
...
push(my @folder_name,<TWO>);
...
$temp1 = pop(@folder_name);
$temp2 = pop(@folder_name);