sub bar {
  my ( $array_ref, $hash_ref ) = foo();

  # arbeite mit Kopien der Werte aus den dereferenzierten Referenzen
  my @sql_output = @$array_ref;
  my %sql_info   = %$hash_ref;
  return \@sql_output, \%sql_info;
}

## oder

sub bar {
  my ( $array_ref, $hash_ref ) = foo();

  # arbeite mit den Referenzen

  for ( @$array_ref ) { # oder @{ $array_ref } 
    printf "SQL OUTPUT: %s\n", $_;
  }

  for ( keys %$hash_ref ) { # oder %{ $hash_ref }
    printf "SQL INFO: %s => %s\n", $_, $hash_ref->{$_};
  }
}