diff --git a/dh_fortran_mod.in b/dh_fortran_mod.in
index 79f5b3f..34df0e3 100755
--- a/dh_fortran_mod.in
+++ b/dh_fortran_mod.in
@@ -388,16 +388,16 @@ foreach my $package (getpackages()) {
     keys %modversions;
 
     if ($config) { # config file defined, so create scripts
-	while (my($compiler,$fcompilermod) = sort each %modversions) {
+	foreach my $compiler (sort keys %modversions) {
 	    my $lnk=`readlink -f /usr/bin/$compiler`;
 	    my $canoncomp=`basename $lnk`;
 	    chomp $canoncomp;
 	    autoscript($package, 'preinst', 'preinst-fortran-mod', { 'MULTIARCH' => $multiarch,
-									 'FCOMPILERMOD' => $fcompilermod,
+									 'FCOMPILERMOD' => $modversions{$compiler},
 									 'FCOMPILER' => $compiler,
 									 'FCANONICAL' => $canoncomp});
 	    autoscript($package, 'postrm', 'postrm-fortran-mod', { 'MULTIARCH' => $multiarch,
-								       'FCOMPILERMOD' => $fcompilermod,
+								       'FCOMPILERMOD' => $modversions{$compiler},
 								       'FCOMPILER' => $compiler,
 								       'FCANONICAL' => $canoncomp });
 	}