open(my $fh, $0) or die $!;
$gash{$fh} = 'some value';

stat($0);
$gash{*_}  = 'some value';
print Dumper(\%gash);

$VAR1 = {
          '*main::_' => 'some value',
          'GLOB(0x18ab6ac)' => 'some value'
        };