Select Code to Download

use warnings;
...
J_071025,SWT:1|936.215-1659.635
071123_F,SWT:1|45.4550-81.665

$VAR1 = 'BM:3';
...
                         ]
        };

   @{$hash{$project}{$vitem}}

   for each project 
      output "Project: ", project
...
         endfor
      endfor
   endfor