Select Code to Download

#!/usr/bin/perl
my %hash_mnt=();
...
<li> multidimensional hash with mnt_key as key and mnt_val and mnt_acc
+ as values</li>
   
  }

#!/usr/bin/perl
my %hash_mnt=();
...
  push( @{$hash_mnt{$mnt_key}[1]}, $mnt_acc);
                                                                      
+                                                       
  }