#!/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>
   
  }