tux242,
You mean something like this:

#!/usr/bin/perl -w
use strict;
use File::Copy;

my @files = qw( file1 file2 );
my $base = '/home/wbill/lazarus/';

for my $file_name (@files) {
    my $file = $base . $file_name;
    copy( $file , "./$file_name" ) or warn "Unable to copy $file_name 
+: $!";
}
[download]

Cheers - L~R