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

my @FILES = ('file1',' file2');
my $path = "/home/wbill/lazarus";

foreach my $this_file ( @FILES ) {
  `cp $path/$this_file .`;
}