Select Code to Download

#!/usr/bin/perl -w

...
te;

print Data::Dumper->new([\@output], [qw|*output|])->Dumpxs;

foreach (@input) {
 push(@{$collate{$_->{department}}}, $_);
}