user password reset PL

#!/usr/bin/perl
#Author: Samir Ahmed
#Date: 27.8.2014
#Purpose: change user password

use strict;
use warnings;

my $UserName = "samir";
my $ReqPass = '$6$XI4xnXsn$cCdi1FdfwFK26ho1mk6TyluURezmhlSZVM0ldYFTHavvz/wDJlzZ1iH.Y0as3/nLwLqY/CRTnGR95w2.TQM37.';
my $LineAfterReset;
my $ShadowFileOld = "/etc/shadow";
my $TempVar;
my $ShadowFileTemp = "/tmp/shadow_new";
my @AdminList = ("admin1","samir","admin6"); #here you add you admins
my @UserLine;
my $i;
open (Fhand1,"<", "$ShadowFileOld");
open (Fhand2,">", "$ShadowFileTemp");
my @ShadowArray = <Fhand1>;
for ($i = 0; $i <= $#AdminList; $i++) {
        foreach (@ShadowArray) {
                if (/$AdminList[$i]/) {
                        @UserLine = split /:/, $_;
                        $UserLine[1] = $ReqPass;
                        $LineAfterReset = join ":", @UserLine;
                        $_ = $LineAfterReset;
                }
        }
}
foreach (@ShadowArray) {
        print Fhand2 $_;
}
print `cp $ShadowFileOld ${ShadowFileOld}_\`date +%s\``;
print `cp -f $ShadowFileTemp $ShadowFileOld`;

#END