use File::Copy;

open (my $fh,"<","viewall.pbdid") or die $!;

while (<$fh>) {
    my $from = "/data/pub/pdb/$path";
    my $to = "/tmp/$path";
    copy ($from,$to) or die $!;
}