my $hashref = &hashref($file); $hashref->{dump} = $changefile; sub hashref { my %hash = (dump => shift); return \%hash; }