#!/usr/bin/perl
use strict;
use warnings;

my $timestamp = time;

for my $file (reverse @ARGV) {
    utime $timestamp, $timestamp, $file;
    $timestamp--;
}