#!/usr/bin/perl
my %hash_mnt=();
@Mounts= `mount`;
$count=0;
 foreach $mount(@Mounts){
  $count++;
  print "$count\n";
  ($mnt_key,$mnt_val,$mnt_acc)=(split(/\s+/,$mount))[2,0,6];
                                                                                                                             <li> I want to create a hash here </li>
<li> multidimensional hash with mnt_key as key and mnt_val and mnt_acc as values</li>
   
  }

##</code><code>##

#!/usr/bin/perl
my %hash_mnt=();
@Mounts= `mount`;
 foreach $mount(@Mounts){
  ($mnt_key,$mnt_val,$mnt_acc)=(split(/\s+/,$mount))[2,0,6];
  push( @{$hash_mnt{$mnt_key}[0]}, $mnt_val );
  push( @{$hash_mnt{$mnt_key}[1]}, $mnt_acc);
                                                                                                                             
  }