Select Code to Download

use warnings;
use strict;
...
close $fh2 or die $!;

print Dumper \%app_map;

App1     4     Perl
App2     8     Java
App3     8     Java
App4     4     PHP
App5     8     C#

App1     1.5     2
App2     2.5     4
App3     2.8     4
App4     2.8     2
App5     2.8     2

$VAR1 = {
          'App5' => {
...
                      'lang' => 'Java'
                    }
        };