#!/usr/bin/perl -w
use strict;

my $dir = "/home/my/files";
chdir $dir or die "can't chdir $dir: $!";

my $i;
do { rename $_, ++$i . "-$_" or die "can't rename: $!" } for glob "*";