sub GetFolderInfo {
    # [...]
    return {'size' => $size, 'measurement' => $measurement, # ....
          };    
    # [...]
}

my $folder_infos = GetFolderInfo( './');
print $folder_infos->{size};