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