#!/usr/bin/perl
    $s="log lock lock log log log www www www www  ";
    @jobs=split(/ /, $s);
    foreach $job (@jobs){
        print "#$job# --> ";
            $verz=glob("/var/$job*");
            print "$verz\n";
    }