Select Code to Download

   my @Data = (
         "1|someproject|active...",
         "2|somethingelse|finished..."
   );

#!/usr/bin/perl -wT
use strict;
...
1|2|7|4|5|6|7|8|9
1|2|2|5|5|6|7|8|9
1|2|6|7|5|6|7|8|9

my @fields = qw/id projname status submitdt assign_dt 
                total complete_dt person dept closed_dt/;
...
    @hash{@fields} = split /\|/, $_;
    $_ = \%hash;
}

print "The id of the project in Data[0] is $Data[0]{id}\n";

my @sorted = sort {$a->{projname} cmp $b->{projname}} @Data;

...
        my %temp = %$_;
        print "@temp{@fields}\n";
}