use strict;
use warnings;
use List::Util qw(pairs); 
@ARGV= qw(Andy 1995 Sarah 1990 Sam 1992 UN);
my %hash;  
for my $pairs (pairs @ARGV){
  $hash{ $$pairs[0] } = $$pairs[1];
} 


Odd number of elements in pairs at -e line 1.
# hash is: ("Sarah", 1990, "Andy", 1995, "UN", undef, "Sam", 1992)