programming-examples/perl/Subroutine/The return values of the ref function- hash.pl

#!/usr/bin/perl

use strict;

my %hash = ( key => "data" );

print( 'ref(\%hash) = ', ref( \%hash ), "\n" );