use strict;
use warnings;

use Data::Dumper;

sub create_hash($) {
  my $id = shift;
  $main::{"hash_$id"} = { id => $id, data => 'rhabarber' }
}

create_hash("foo");

our %hash_foo;
print Dumper \%hash_foo;