Select Code to Download

#! /usr/bin/perl -w

...
hj,uyi,excel2.xls,12,more,time2
gh,ty,word1.doc,234,thing,time2
ksdj,hsjh,word2.doc,334,is,time3

$VAR1 = {
          'doc' => {
...
                                 ]
                   }
        };