...
elsif {
  my $ref;   # die Zeile wird angemeckert aber funktionieren tut alles
  if (
    %ab and $FORM{switch} eq 'ab' and $ref = \%ab
    or
    %ba and $FORM{switch} eq 'ba' and $ref = \%ba
  ) {
    ...