my %pathsToDep­loy; my %filesToDep­loy; my @filesToCon­vert; sub Deploy { my %ToDep­loy = @_; %pathsToDep­loy = map { $_ => $ToDep­loy{$_}->[0] } keys %ToDep­loy; %filesToDep­loy = map { $_ => $ToDep­loy{$_}->[1] } keys %ToDep­loy; @filesToCon­vert = keys %ToDep­loy ); # other code }