$i=1;
foreach my $a (@ARGV) {
    my $j = $i . ".txt";
    `mv $a $j`;
    $i++;
}
