use strict;

my $file = 'aFile';
my $hash_ref = get_hash($file);

#blah blah blah

sub get_hash{
        my $file = shift;
        my %hash;
        #do something to populate a hash
        return \%hash;
}