@ARGV = qw( Andy 1995 Sarah 1990 Sam 1992 UNEXPECTED );
my %hash;
 
while (my $key = shift @ARGV and my $val = shift @ARGV){
   $hash{$key}=$val
}

# hash is: ("Sam", 1992, "Andy", 1995, "Sarah", 1990)