in reply to Need help stripping characters in an array please.

How about: 
for (@files) {
    s(^\./)();
}

[download]

In Section Seekers of Perl Wisdom