foreach $line(@lines){
copy ("$GraphicsDirectory/$line", "$pparent/$path/images/$line");
}