Kopieren von Dateien mit Datum- Unterscheidung

Unterscheidung ob Wochentag "gerade" oder "ungerade"

Hi Leute,
1. mein Quelltext verursacht immer ein "useless use of a constant in a void context", also falscher Kontext, ich weiß aber nicht wieso.

2. Ich möchte: Einfach ein paar Ordner kopieren, kein Problem bis hier.
Allerdings möchte ich einen Ordner für "gerade Wochentage" und einen für "ungerade Wochentage" als Ziel nehmen,
mittels if- Konstrukt sollte das ja kein Thema sein. Dachte ich
Wenn ich fest angebe: "if $mday == z.B. "19", also nur einen Wert angebe geht das ganze!!!!!!!!
Ich habe also ein Problem mit dem angegebenen Bereich der ungeraden Wochentage. Syntax-/Schreib- Fehler???????

Ich danke euch für jeden tipp!!!!!
Ciao
FM

Also hier mein Code:

#!/usr/bin/perl
use warnings;
use strict;
use File::NCopy qw(copy);
use File::Path;

my $usetime = time;
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime $usetime;

if ($mday == 1, 3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31) {
copy \1, "C:/test/", "C:/back_uneven/";}

else {
copy \1, "C:/test/", "C:/back_even/";}

if ($mday%2 == 1) {
copy \1, "C:/test/", "C:/back_uneven/";}  

else {
copy \1, "C:/test/", "C:/back_even/";}