#!/usr/bin/perl
use strict;
my $ref = load();
        for my $tmp ( keys %{$ref} ) {
                print $ref->{$tmp} . "\n";
        }
save($ref);

sub load {
        my %hash = ('bla'=>'yadda', 'um'=>'uh');
        return \%hash;
}
sub save {
        my ($ref2) = @_;
        for my $tmp ( keys %{$ref2} ) {
                print $ref->{$tmp} . "\n";
        }
}