Shell Programming and Scripting

my $version = "MYSQlcl-5.2.4-264.x86_64"; <-- split this word into array as (5 2 4 264) ( which is to extract only the version number from the package name)

my @array1 = ( 5 2 4 264);  <-- after splitting from above
my @array2 = ( 5 3 2 112);  <-- pre defined array

if (@array1[0] = @array2[0]) and (@array1[1] = @array2[1]) and (@array1[2] = @array2[2]) and (@array1[3] = @array2[3])
    {
     print "Same. No upgrade required\n";
     }
elsif (@array1[0] > @array2[0]) and (@array1[1] > @array2[1]) and (@array1[2] > @array2[2]) and (@array1[3] > @array2[3])
    {
     print "Already at higher level. No upgrade required\n";
     }
else 
     {
     print "Found at lower version. Upgrade required. Upgrading\n";
     }

my $version = "MYSQlcl-5.2.4-264.x86_64";
my @array1=$version=~/\d+/g;
my @array2 = (5,3,2,112);
my $ver1=join '',@array1[0..3];
my $ver2=join '',@array2;
if ($ver1 == $ver2){
        print "Same. No upgrade required\n";
}elsif ($ver1 > $ver2){
        print "Already at higher level. No upgrade required\n";
}else{
        print "Found at lower version. Upgrade required. Upgrading\n";
}