/home/units/bakery/cake.pl
/home/units/bakery/pie.pl
/home/units/bakery/plumcake.pl
/home/units/fruitjunction/juice.pl
/home/units/fruitjunction/icecream.pl
/home/units/bakery/choclate.pl

##</code><code>##

1. it should maitain the same order as listed.
2. based on the pattern (bakery|fruitjunction) it should add some pattern

##</code><code>##

# BAKERY
/home/units/bakery/cake.pl
/home/units/bakery/pie.pl
/home/units/bakery/plumcake.pl
# END BAKERY
# FRUITJUNCTION
/home/units/fruitjunction/juice.pl
/home/units/fruitjunction/icecream.pl
# END FRUITJUNCTION
# BAKERY
/home/units/bakery/choclate.pl
# END BAKERY

##</code><code>##

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";
}