use Data::Dumper;

use strict;
use warnings;

my $dat = do_this();
print Dumper($dat);

sub do_this {  
	my %dat = ("a", 1, "b", 2);
	return \%dat;	
}