diff --git a/perl-xCAT/xCAT/Client.pm b/perl-xCAT/xCAT/Client.pm
index b460d5f38..9aa8cfd0e 100644
--- a/perl-xCAT/xCAT/Client.pm
+++ b/perl-xCAT/xCAT/Client.pm
@@ -838,7 +838,7 @@ sub submit_request {
             #----- end added to Client.pm -----#
 
             if (ref $_->{'_xcatdest'} and (ref $_->{'_xcatdest'}) eq 'ARRAY') {
-                _->{'_xcatdest'} = $_->{'_xcatdest'}->[0];
+                $_->{'_xcatdest'} = $_->{'_xcatdest'}->[0];
             }
             if ($onlyone and not($_->{'_xcatdest'} and xCAT::NetworkUtils->thishostisnot($_->{'_xcatdest'}))) {
                 $SIG{CHLD} = 'DEFAULT';
diff --git a/perl-xCAT/xCAT/FSPbootseq.pm b/perl-xCAT/xCAT/FSPbootseq.pm
index 8f6ba2e75..3d81f73b5 100644
--- a/perl-xCAT/xCAT/FSPbootseq.pm
+++ b/perl-xCAT/xCAT/FSPbootseq.pm
@@ -21,8 +21,7 @@ sub parse_args {
     my $cmd     = $request->{command};
     my $args    = $request->{arg};
     my $node    = $request->{node};
-    my $vers =
-      my @VERSION = qw( 2.6 );
+    my @VERSION = qw( 2.6 );
     my @dev = qw(hfi net);
 
     #############################################
diff --git a/xCAT-server/sbin/xcatd b/xCAT-server/sbin/xcatd
index 8e9271509..ded392492 100644
--- a/xCAT-server/sbin/xcatd
+++ b/xCAT-server/sbin/xcatd
@@ -2165,7 +2165,7 @@ sub dispatch_request {
         my $child;
         delete $_->{noderange};
         if (ref $_->{'_xcatdest'} and (ref $_->{'_xcatdest'}) eq 'ARRAY') {
-            _->{'_xcatdest'} = $_->{'_xcatdest'}->[0];
+            $_->{'_xcatdest'} = $_->{'_xcatdest'}->[0];
         }
         if ($onlyone and not($_->{'_xcatdest'} and xCAT::NetworkUtils->thishostisnot($_->{'_xcatdest'}))) {
             $SIG{CHLD} = 'DEFAULT';