#! /usr/bin/env perl
use strict;
use warnings;
use 5.024;

use Data::Dumper;
$Data::Dumper::Useqq = 1;

my $aRef = [ qw( 123 ) ];

say "\$aRef ist Array-Referenz mit Anzahl Elementen: ", 0+@$aRef;
say Data::Dumper->new([ $aRef ], [ 'aRef'] )->Useqq(1)->Dump;

# 
my @ergebnisse;

@ergebnisse = @$aRef;
say join " ", "Ergebnis (klassisch mit \@\$aRef):", @ergebnisse;

@ergebnisse = $aRef->@*;
say join " ", "Ergebnis (postfix deref mit ->\@\*):", @ergebnisse;

@ergebnisse = $aRef-@*;
say join " ", "Ergebnis (Tippfehler mit -\@\*):", @ergebnisse;

@ergebnisse = $aRef>@*;
say join " ", "Ergebnis (Tippfehler mit >\@\*):", @ergebnisse;

################
#

say "\n", "###"x20, "\n";


my $hRef = { foo => "bar" };

say "\$hRef ist Hash-Referenz mit Anzahl Paaren: ", 0+(keys %$hRef);
say Data::Dumper->new([ $hRef ], [ 'hRef'] )->Useqq(1)->Dump;

my %ergebnisse;

%ergebnisse = $hRef->%*;
say join " ", "Ergebnis (postfix deref mit ->\%\*):", %ergebnisse;
say Data::Dumper->new([ \%ergebnisse ], [ '*ergebnisse'] )->Useqq(1)->Dump;

my %ergebnisse = $hRef-@*;
say join " ", "Ergebnis (Tippfehler mit -\%\*):", %ergebnisse;
say Data::Dumper->new([ \%ergebnisse ], [ '*ergebnisse'] )->Useqq(1)->Dump;

@ergebnisse = $hRef>%*;
say join " ", "Ergebnis (Tippfehler mit >\%\*):", %ergebnisse;
say Data::Dumper->new([ \%ergebnisse ], [ '*ergebnisse'] )->Useqq(1)->Dump;




say "\n\n## ABER: die letzten zwei nochmal OHNE warnings...\n";

{ 
	no warnings;

	my %ergebnisse = $hRef-@*;
	say join " ", "Ergebnis (Tippfehler mit -\%\*):", %ergebnisse;
	say Data::Dumper->new([ \%ergebnisse ], [ '*ergebnisse'] )->Useqq(1)->Dump;

	@ergebnisse = $hRef>%*;
	say join " ", "Ergebnis (Tippfehler mit >\%\*):", %ergebnisse;
	say Data::Dumper->new([ \%ergebnisse ], [ '*ergebnisse'] )->Useqq(1)->Dump;

}


__END__