fix some perl warnings

mxmount

@@ -4,18 +4,23 @@ use Sys::Hostname;
 use Data::Dumper;
 use Socket;
 
+use warnings;
+
 ########################################
 
-my $configfile="/etc/mxmounts";
-my $exports="/etc/exports";
+my $configfile = "/etc/mxmounts";
+my $exports    = "/etc/exports";
 
 ########################################
 
 my $tag = "# DO NOT EDIT BELOW THIS LINE # created by /usr/bin/mxmount #";
 
-my $fullhostname, $hostname;
-my @lines,@exports;
-my %V, %D;
+my $fullhostname;
+my $hostname;
+my @lines;
+my @exports;
+my %V;
+my %D;
 
 $fullhostname = hostname();
 ($hostname) = $fullhostname =~ /^(.*?)\./;
@@ -100,7 +105,7 @@ sub create_exports {
 sub mount_all {
     my $allmp = $D{$hostname};
     my @CMD;
-    foreach my $mp (sort { $a->{mountpoint} <=> $b->{mountpoint} } @$allmp) {
+    foreach my $mp (sort { $a->{mountpoint} cmp $b->{mountpoint} } @$allmp) {
 
         @CMD = ();
 
@@ -202,7 +207,7 @@ sub parse_variables {
    my @lines = @_;
    my @invalid = ();
 
-   my $key, $value;
+   my ($key, $value);
 
    foreach(@lines) {
         if(($key, $value) = /^(\S+)=\s*(.*)$/) {