sub GetFolderInfo { 
    # [...]
    return $size, $measurement, $numfiles, $numfolders;
    # [...]
}

my @folder_infos = GetFolderInfo( './' );