...
if ($x) {
    my %big_hash;
    my %big_array;
    # fülle %big_hash und %big_array und mache was damit
    ...
}
# hier sind %big_hash und @big_array schon nicht mehr vorhanden,
# speicher wird wieder ans script zurückgegeben zur wiederverwendung
# und das ganz automatisch

if ($y) {
    # mach was ganz anderes
}
# usw usf