@parts = split(/\//);
$file1 = pop @parts;