perl -MData::Dumper -we "while(my $k=shift @ARGV and $v = shift @ARGV ){$h{$k}=$v};print Dumper \
%h" 1 a 2 b ODD

$VAR1 = {
          '1' => 'a',
          '2' => 'b'
        };