my $stem = $ARGV[0];
my $start = $ARGV[1];
my $dir = $ARGV[2];

print "STEM: $stem\n";
print "START: $start\n";
print "DIR: $dir\n";

my $outstring;
while(<*.pdb*>){
    if(m,\.viols,){next}
    if(m,$stem,){
        chomp;               
        $outstring = $dir.$start.'.pdb';
        print `cp $_ $outstring\n`;
        $start++}}