#! /usr/bin/perl
use strict;
use warnings;
my @FILES = ('file1',' file2');
`cp /home/wbill/lazarus/@FILES .`;