>perl -wMstrict -le
"my %hash = ( foo => 'bar' );
 my $hash = { foo => 'not_bar_at_all' };
 ;;
 print qq{what is foo? $hash{foo}};
 print qq{what is foo? $hash->{foo}};
"
what is foo? bar
what is foo? not_bar_at_all