#! /usr/bin/perl

use strict;
use warnings;

my $ref = return_ref();
if ( !ref ) {
    print "No hash reference.\n";
}
else {
    print "We have a hash reference.\n";
}

sub return_ref {
    my %hash;
    return \%hash;
}