my $file ="/pathtofile/file.txt";
open (FILE, $file) or die $!;
my @array = ('acuser', 'sync_cmd', '2015-01-13');
   my @lines = sort grep /\Q@array/, <FILE>;
  foreach (@lines) {
           print "$_\n";
        }
    close(FILE);