use strict;
use warnings;

#compare the commands in the arrays

my @commands_run = qw(first second third fourth fifth);
my @commands     = qw(first second third fourth fifth);

if (($commands_run[0] =~ /$commands[0]/)
  &&($commands_run[1] =~ /$commands[1]/)
  &&($commands_run[2] =~ /$commands[2]/)
  &&($commands_run[3] =~ /$commands[3]/)
  &&($commands_run[4] =~ /$commands[4]/))
{
    print "Test -----PASS\n";
} else {
    print "Test ---- FAIL\n";
}