sub myRepeatedCode
{
   my ($day, $argument2, $argument3) = @_;
   # Do something with $day
}