# Die Usage
if(($#ARGV==0) || (! $ARGV[0]) || (grep{ $ARGV[0] eq $_,} @array )) {
        print "\nUsage: $0 <argument>\n\n";
        print "argument: \n";
        print '-'x20 . "\n";
        foreach (@array){print "$_\n";}
        exit 1;
}