Select Code to Download

use warnings;
use strict;
...
  my %result=(A=>1,B=>2);
  wantarray ? each %result : \%result;
}

(hash) A=1
(hash) B=2
(ref)  A=1
(ref)  B=2