Create subset.pl