#!/usr/bin/perl -w

use strict;
use Getopt::Std;
use Data::Dumper;

my %switches;

getopts('x:o:d:m:', \%switches);

foreach (keys %switches) {
  $switches{$_} = [ split /\s+/, $switches{$_} ];
}

print Dumper \%switches;