my @bakery;
my @fruitjunction;
foreach my $file ( @filenames) {
push (@bakery,$file) if($file =~ /bakery/) ;
push (@fruitjunction,$file) ($file =~ /fruitjunction/);
}
if(scalar(@bakery)) {
print WRITE "# BAKERY \n";
print WRITE @bakery;
print WRITE "# END BAKERY \n";
}
if(scalar(@fruitjunction)) {
print WRITE "# FRUITJUNCTION \n";
print WRITE @fruitjunction;
print WRITE "# END FRUITJUNCTION \n";
}