#!/usr/bin/env perl
use warnings;
use strict;
use File::Copy 'move';

my $findme = '/Volumes/photorepos/Perl/SLAperlDropback/';

chdir($findme.'2SLAday') or die "chdir: $!";

foreach my $file (glob "*.*") {
	open my $fh, '<', $findme.'dropback.txt' or die "open: $!";
	while ( my $row = <$fh> ) {
		chomp $row;
		if ( $file =~ /$row/ ) {
			move( $file, $row ) or die "move: $!";
		}
	}
}