sub Speicher_aktualisieren($$$$)
{
  # Variablenwerte übernehmen:
  my ($auswahl_chkb1,$auswahl_chkb2,$auswahl_chkb3,$auswahl_chkb4)=@_;
  # ...
  # weiter wie bisher
}