Subroutine Perl

#!/usr/bin/perl
use strict;
my %hash = ( key => "data" );
print( 'ref(\%hash) = ', ref( \%hash ), "\n" );