my @all_results; for ( ... ) { # irgend eine schleife my %result = check_mount(...); push @all_results, \%result; } print Dumper \@all_results;