use strict;
use warnings;
use Data::Dumper;

sub ret_hash {
    return {nick => 1};
}

my $hash = ret_hash();
print Dumper($hash);