diff --git a/sbin/gentoo-upgrade.sh b/sbin/gentoo-upgrade.sh
index 7232cc7..03e88ea 100755
--- a/sbin/gentoo-upgrade.sh
+++ b/sbin/gentoo-upgrade.sh
@@ -387,24 +387,6 @@ if [ $STAGE_CNT -eq $STAGE ]; then
 fi
 let STAGE_CNT++
 
-# Perl upgrade
-if [ $STAGE_CNT -eq $STAGE ]; then
-	echo "======= STAGE $STAGE: Perl upgrade ======="
-
-	if [ -f /etc/portage/need_upgrade_perl ]; then
-		echo "Running perl-cleaner..."
-		$NICE_CMD perl-cleaner --all
-		[ 0 != $? ] && echo "Stage $STAGE: perl-cleaner failed ;-( =======" && exit $STAGE
-		rm /etc/portage/need_upgrade_perl
-		[ 0 != $? ] && echo "Stage $STAGE: cann't remove /etc/portage/need_upgrade_perl ;-( =======" && exit $STAGE
-	else
-		echo "------- Not need to upgrade perl -------"
-	fi
-
-        let STAGE++
-fi
-let STAGE_CNT++
-
 # Haskell upgrade
 if [ $STAGE_CNT -eq $STAGE ]; then
 	echo "======= STAGE $STAGE: Haskell upgrade ======="
@@ -490,6 +472,24 @@ if [ $STAGE_CNT -eq $STAGE ]; then
 fi
 let STAGE_CNT++
 
+# Perl upgrade
+if [ $STAGE_CNT -eq $STAGE ]; then
+	echo "======= STAGE $STAGE: Perl upgrade ======="
+
+	if [ -f /etc/portage/need_upgrade_perl ]; then
+		echo "Running perl-cleaner..."
+		$NICE_CMD perl-cleaner --all
+		[ 0 != $? ] && echo "Stage $STAGE: perl-cleaner failed ;-( =======" && exit $STAGE
+		rm /etc/portage/need_upgrade_perl
+		[ 0 != $? ] && echo "Stage $STAGE: cann't remove /etc/portage/need_upgrade_perl ;-( =======" && exit $STAGE
+	else
+		echo "------- Not need to upgrade perl -------"
+	fi
+
+        let STAGE++
+fi
+let STAGE_CNT++
+
 # Scan for missed shared libraries
 if [ $STAGE_CNT -eq $STAGE ]; then
         echo "======= STAGE $STAGE: Scan for old versions of shared libraries ======="