#!/usr/bin/perl 

use strict;
use warnings;
use Data::Dumper;


sub fillerup ($);

my %fillme = (gas_pr => 3.59, gas_capacity => 14);


local $\ = "\n";

print '-'x80;
foreach my $key (keys %fillme  ) {
    print $key . '=' . $fillme{$key};
}

fillerup ( \%fillme );

print '-'x80;

foreach my $key (keys %fillme  ) {
    print $key . '=' . $fillme{$key};
}

sub fillerup ($) {
    no strict; 
    local *hashref = shift;
#    my $hashref = shift;

        print "Prior to inserting a record in fillerup...";
    print '*'x80;

    foreach my $key (keys %$hashref  ) {
        print $key . '=' . $hashref->{$key};
    }

    $hashref->{filled_up} = 12.3;
    
    print '*'x80;

    foreach my $key (keys %$hashref  ) {
        print $key . '=' . $hashref->{$key};
    }

    print '*'x80;
    print "\*hashref:   " . Dumper(*hashref);
    print "\$hashref:   " . Dumper($hashref);
    print "\%\$hashref:  " . Dumper(%$hashref);
    print "\\\%\$hashref: " . Dumper(\%$hashref);
    print "\\\%hashref:  " . Dumper(\%hashref);
    print "\\\%fillme:  " . Dumper(\%fillme);

    return;
}