BEGIN { *basename = shortcutted { s!.*/!! for @_ }; }

for( '/path/to/foo', '/some/path/to/bar' ) {
	print "Munging " . basename . "\n";
	open my $fh, '<', $_ or die $!;
	# note how $_ still contains the full pathname
	# ...
}