#!/bin/env perl use strict; use warnings; use List::Util qw(any); my @small = ('var/qWDszw1dQd', 'aHO0rvbglz/pg_extra_dump', 'OtherSchema'); my @big = load_paths(); my @selected; for my $item (@big) { push @selected, $item if any { $item =~ /\Q$_\E/ } @small; } print "selected:\n", join "\n", @selected, "\n"; sub load_paths { return qw( ./gh/dbix-class-schema-loader/t/var/QN40VTMAuz ./gh/dbix-class-schema-loader/t/var/QN40VTMAuz/common_dump ./gh/dbix-class-schema-loader/t/var/QN40VTMAuz/common_dump/DBIXCSL_Test ./gh/dbix-class-schema-loader/t/var/QN40VTMAuz/common_dump/DBIXCSL_Test/Schema ./gh/dbix-class-schema-loader/t/var/QN40VTMAuz/common_dump/DBIXCSL_Test/Schema/MyResult ./gh/dbix-class-schema-loader/t/var/BIdR9nVlmM ./gh/dbix-class-schema-loader/t/var/Qt5_emwFhF ./gh/dbix-class-schema-loader/t/var/Qt5_emwFhF/common_dump ./gh/dbix-class-schema-loader/t/var/Qt5_emwFhF/common_dump/DBIXCSL_Test ./gh/dbix-class-schema-loader/t/var/Qt5_emwFhF/common_dump/DBIXCSL_Test/Schema ./gh/dbix-class-schema-loader/t/var/Qt5_emwFhF/common_dump/DBIXCSL_Test/Schema/MyResult ./gh/dbix-class-schema-loader/t/var/oc8ziKYqZb ./gh/dbix-class-schema-loader/t/var/VZa7q4FOlm ./gh/dbix-class-schema-loader/t/var/wxbUMQkA3e ./gh/dbix-class-schema-loader/t/var/wxbUMQkA3e/common_dump ./gh/dbix-class-schema-loader/t/var/wxbUMQkA3e/common_dump/DBIXCSL_Test ./gh/dbix-class-schema-loader/t/var/wxbUMQkA3e/common_dump/DBIXCSL_Test/Schema ./gh/dbix-class-schema-loader/t/var/wxbUMQkA3e/common_dump/DBIXCSL_Test/Schema/MyResult ./gh/dbix-class-schema-loader/t/var/9Br774226y ./gh/dbix-class-schema-loader/t/var/9Br774226y/common_dump ./gh/dbix-class-schema-loader/t/var/9Br774226y/common_dump/DBIXCSL_Test ./gh/dbix-class-schema-loader/t/var/9Br774226y/common_dump/DBIXCSL_Test/Schema ./gh/dbix-class-schema-loader/t/var/9Br774226y/common_dump/DBIXCSL_Test/Schema/MyResult ./gh/dbix-class-schema-loader/t/var/9Br774226y/common_dump/TestSchemaFromAnother ./gh/dbix-class-schema-loader/t/var/9Br774226y/common_dump/TestSchemaFromAnother/Result ./gh/dbix-class-schema-loader/t/var/AZzU5Mp5c8 ./gh/dbix-class-schema-loader/t/var/BrS2LkS6Wh ./gh/dbix-class-schema-loader/t/var/SN_06brsqD ./gh/dbix-class-schema-loader/t/var/sso1WR7JVK ./gh/dbix-class-schema-loader/t/var/sso1WR7JVK/common_dump ./gh/dbix-class-schema-loader/t/var/aHO0rvbglz ./gh/dbix-class-schema-loader/t/var/aHO0rvbglz/pg_extra_dump ./gh/dbix-class-schema-loader/t/var/aHO0rvbglz/pg_extra_dump/PGMultiSchema ./gh/dbix-class-schema-loader/t/var/aHO0rvbglz/pg_extra_dump/PGMultiSchema/Result ./gh/dbix-class-schema-loader/t/var/aHO0rvbglz/common_dump ./gh/dbix-class-schema-loader/t/var/aHO0rvbglz/common_dump/DBIXCSL_Test ./gh/dbix-class-schema-loader/t/var/aHO0rvbglz/common_dump/DBIXCSL_Test/Schema ./gh/dbix-class-schema-loader/t/var/aHO0rvbglz/common_dump/DBIXCSL_Test/Schema/MyResult ./gh/dbix-class-schema-loader/t/var/aHO0rvbglz/common_dump/TestSchemaFromAnother ./gh/dbix-class-schema-loader/t/var/aHO0rvbglz/common_dump/TestSchemaFromAnother/Result ./gh/dbix-class-schema-loader/t/var/SMPvZQWwxI ./gh/dbix-class-schema-loader/t/var/ZQHeJ7xJLS ./gh/dbix-class-schema-loader/t/var/ZQHeJ7xJLS/common_dump ./gh/dbix-class-schema-loader/t/var/ZQHeJ7xJLS/common_dump/DBIXCSL_Test ./gh/dbix-class-schema-loader/t/var/ZQHeJ7xJLS/common_dump/DBIXCSL_Test/Schema ./gh/dbix-class-schema-loader/t/var/ZQHeJ7xJLS/common_dump/DBIXCSL_Test/Schema/MyResult ./gh/dbix-class-schema-loader/t/var/qWDszw1dQd ./gh/dbix-class-schema-loader/t/var/A_asDKxIPg ./gh/dbix-class-schema-loader/t/var/MbRwgdPYzG ./gh/dbix-class-schema-loader/t/var/OKOTLfXlcS ./gh/dbix-class-schema-loader/t/var/OKOTLfXlcS/common_dump ./gh/dbix-class-schema-loader/t/var/OKOTLfXlcS/common_dump/DBIXCSL_Test ./gh/dbix-class-schema-loader/t/var/OKOTLfXlcS/common_dump/DBIXCSL_Test/Schema ./gh/dbix-class-schema-loader/t/var/OKOTLfXlcS/common_dump/DBIXCSL_Test/Schema/MyResult ./gh/dbix-class-schema-loader/t/var/LDoLlFrpEm ./gh/dbix-class-schema-loader/t/var/xf484Q14Tm ./gh/dbix-class-schema-loader/t/var/xf484Q14Tm/common_dump ./gh/dbix-class-schema-loader/t/var/xf484Q14Tm/common_dump/DBIXCSL_Test ./gh/dbix-class-schema-loader/t/var/xf484Q14Tm/common_dump/DBIXCSL_Test/Schema ./gh/dbix-class-schema-loader/t/var/xf484Q14Tm/common_dump/DBIXCSL_Test/Schema/MyResult ./gh/dbix-class-schema-loader/t/var/4HJSJyMOLQ ./gh/dbix-class-schema-loader/t/var/4HJSJyMOLQ/common_dump ./gh/dbix-class-schema-loader/t/var/4HJSJyMOLQ/common_dump/DBIXCSL_Test ./gh/dbix-class-schema-loader/t/var/4HJSJyMOLQ/common_dump/DBIXCSL_Test/Schema ./gh/dbix-class-schema-loader/t/var/4HJSJyMOLQ/common_dump/DBIXCSL_Test/Schema/MyResult ./gh/dbix-class-schema-loader/t/var/Ta_ZGMdtD3 ./gh/dbix-class-schema-loader/t/var/PvDTGVICln ./gh/dbix-class-schema-loader/t/var/VSshFiOQrb ./gh/dbix-class-schema-loader/t/var/VSshFiOQrb/dump ./gh/dbix-class-schema-loader/t/var/VSshFiOQrb/dump/DBICTest ./gh/dbix-class-schema-loader/t/var/VSshFiOQrb/dump/DBICTest/DumpMore ./gh/dbix-class-schema-loader/t/var/VSshFiOQrb/dump/DBICTest/DumpMore/1 ./gh/dbix-class-schema-loader/t/var/VSshFiOQrb/dump/DBICTest/DumpMore/1/Result ./gh/dbix-class-schema-loader/t/var/VSshFiOQrb/dump/DBICTest/DumpMore/1/Result/MySchema ./gh/dbix-class-schema-loader/t/var/VSshFiOQrb/dump/DBICTest/DumpMore/1/Result/OtherSchema ./gh/dbix-class-schema-loader/t/var/VSshFiOQrb/dump/DBICTest/DumpMore/omit_timestamp ./gh/dbix-class-schema-loader/t/var/VSshFiOQrb/dump/DBICTest/DumpMore/Upgrade ./gh/dbix-class-schema-loader/t/var/VSshFiOQrb/dump/DBICTest/DumpMore/Upgrade/Result ./gh/dbix-class-schema-loader/t/var/VSshFiOQrb/dump/DBICTest/DumpMore/omit_both ./gh/dbix-class-schema-loader/t/var/VSshFiOQrb/dump/DBICTest/DumpMore/omit_version ); } __DATA__ selected: ./gh/dbix-class-schema-loader/t/var/aHO0rvbglz/pg_extra_dump ./gh/dbix-class-schema-loader/t/var/aHO0rvbglz/pg_extra_dump/PGMultiSchema ./gh/dbix-class-schema-loader/t/var/aHO0rvbglz/pg_extra_dump/PGMultiSchema/Result ./gh/dbix-class-schema-loader/t/var/qWDszw1dQd ./gh/dbix-class-schema-loader/t/var/VSshFiOQrb/dump/DBICTest/DumpMore/1/Result/OtherSchema